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APPENDIX  B.  listings  of  Execution  Files 


1. 

TAPDSK 

SUBMIT 

2. 

STARTDAY 

EXEC 

3. 

CALENDAR 

EXEC 

4. 

MILES  EXEC 

5. 

GEN  EXEC 

6. 

FTRAN 

EXEC 

7. 

CAPDATE 

EXEC 

B. 

SKOPCAP 

EXEC 

9. 

REPDATE 

EXEC 

10. 

SIMGEN 

EXEC 

11. 

S1MSCHED 

EXEC 

12. 

M1C0RG 

EXEC 

13. 

MICORGR 

EXEC 

14. 

BM1C0RG 

SUBMIT 

15. 

BMICORGR 

SUBMIT 

16. 

OUTREP 

EXEC 

17. 

GRAPH 

EXEC 

2 


TAPDSK  SUBMIT 

TAPMOUNT  SHIP  •  TAPI  NL  DEN  1600 
CM5DISK  WRITEPW  SHIPYARD 

TAPTODSK  SHIP  DATA  D  (1  RECFM  FB  LRECL  60  BLOCK  1200 


“  *  “  •*  i  •  *  •_ 


EXEC  USE  FORTVS 
FI  1  DISK  SHIP  DATA 
FI  2  DISK  BBM1LES  DATA 
FI  3  DISK  FIRST  YEAR 
FI  4  DISK  WORKING  DATES 
FI  7  DISK  START  DATE 
LOAD  MILES(CL£AR  START 
FI  •  CLEAR 


-  8- 


GEN  EXEC 

EXEC  USE  FORTVS 

&TYPE  ••••  ERASING  OLD  TEMPORARY  FILES  . . 

ERASE  BBS  DATA  A 
ERASE  BBSORT  DATA  A 
ERASE  BBALTO  DATA  A 

•  CHECK  DISK  SPACE 
Q  DISK  A 
&BEGTYPE 

•  BEFORE  YOU  START  RUNNING  THIS  PROCEDURE.  YOU  SHOULD  HAVE 
USED  LESS  THAN  80%  OF  DISK  SPACE.  CHECK  QUOTA  ABOVE  AND 
ENTER  Y  IF  WANT  TO  START  OR  N  TO  STOP  NOW. 

icEND 

icREAD  VARS  Sc  1 

&1F  .icl  NE  .Y  icGOTO  -FIN 

• 

EXEC  XSORT  SHIP  DATA  A  BBS  DATA  A  27  31 

FI  1  DISK  BBS  DATA  A 

FI  2  DISK  BBRES  DATA  A 

LOAD  RESLST  (CLEAR  START 

ERASE  BBS  DATA  A 

FI  •  CLEAR 

EXEC  USE  FORTVS 
FI  1  DISK  BBRES  DATA 
FI  2  DISK  BBSHOPS  DATA 
FI  3  DISK  SSKPLST  DATA 
FI  4  DISK  BBNRES  DATA 
LOAD  SHOPS(CLEAR  START 
FI  •  CLEAR 

EXEC  USE  FORTVS 

EXEC  XSORT  SHIP  DATA  A  BBSORT  DATA  A  16  19  21  25  27  31 

FI  10  DISK  BBRES  DATA  A 

FI  1  DISK  BBSORT  DATA  A 

FI  2  DISK  BBAL1ST  DATA  A 

FI  3  DISK  BBWCLST  DATA  A 

FI  4  DISK  BBINTEN  DATA  A 

FI  7  DISK  BBANUM  DATA  A 

LOAD  INFILE1  (CLEAR  START 

ERASE  BBSORT  DATA  A 

FI  •  CLEAR 

EXEC  USE  FORTVS 

EXEC  XSORT  BBALJST  DATA  A  BBALTO  DATA  A  12  15 

FI  1  DISK  BBALJST  DATA  A 

FI  2  DISK  BBALTO  DATA  A 

FI  3  DISK  BBFOLL  DATA  A 

FI  4  DISK  BBPRED  DATA  A 

FI  7  DISK  BBNET  DATA  A 

LOAD  FOLLPRED  (  CLEAR  START 

ERASE  BBALTO  DATA  A 

FI  *  CLEAR 


FTRAN  EXEC 

EXEC  USE  FORTVS 
&BEGTYPE 

•  IS  THE  FILE  "BBTRC  DATA"  OF  FLOW-TRANSFER  INPUTS  ALREADY  COMPLETE? 
IF  YES.  EXEC  WILL  COMPILE  THE  NETWORK. 

Y  IF  YES,  N  IF  YOU  WANT  TO  ENTER  NEW  DATA  FOR  FLOW-TRANSFERS. 

JcEND 

AREAD  VARS  &1 

MF  .&1  EQ  .Y  &GOTO  -CTRAN 

• 

FI  1  DISK  BBTRC  DATA  A 
LOAD  FTRAN  (CLEAR  START 
-CTRAN 

FI  1  DISK  BBTRC  DATA  A 
FI  2  DISK  BBFOLL  DATA  A 
FI  3  DISK  BBNET  DATA  A 
FI  4  DISK  BBALIST  DATA  A 
FI  7  DISK  BBTRAN  DATA  A 
FI  12  DISK  BBPRED  DATA  A 
LOAD  CTRAN  (CLEAR  START 
FI  •  CLEAR 


SHOPCAP  EXEC 

EXEC  USE  FORTVS 
&BEGTYPE 

•  DO  YOU  ALREADY  HAVE  THE  FILE  BBBCAP  FOR  SHOP  CAPACITY  INPUT 
IF  YES,  EXEC  WILL  SKIP  THE  SHOPCAP  AND  CONTINUE  TO  PRECAP. 

Y  IF  YES,  N  IF  YOU  WANT  TO  ENTER  NEW  DATA  FOR  SHOP  CAPACITY. 
AEND 

&READ  VARS  &1 

JtIF  -&1  EQ  .Y  &GOTO  -PRECAP 

• 

FI  1  DISK  BBBCAP  DATA  A 
LOAD  SHOPCAP  (CLEAR  START 
FI  •  CLEAR 
-PRECAP 

EXEC  USE  FORTVS 
FI  1  DISK  BBNRES  DATA 
FI  2  DISK  BBTCAP  DATA 
FI  3  DISK  BBSKOPS  DATA 
FI  4  DISK  BBBCAP  DATA 
FI  7  DISK  BBRES  DATA 
FI  8  DISK  BBVCAP  DATA 
FI  9  DISK  BBNCAP  DATA 
FI  10  DISK  SSPCAPO  FILE 
LOAD  PRECAP  (CLEAR  START 
FI  •  CLEAR 


REPDATE  EXEC 

EXEC  USE  FORTVS 
FI  1  DISK  FIRST  YEAR  A 
FI  2  DISK  WORKING  DATES  A 
FI  3  DISK  BBTREP  DATA  A 
FI  4  DISK  START  DATE  A 
LOAD  REPDATE  (CLEAR  START 
FI  •  CLEAR 

FI  1  DISK  BBTCAP  DATA  A 
FI  2  DISK  BBTREP  DATA  A 
FI  3  DISK  BBSREP  DATA  A 
LOAD  REPCON1  (CLEAR  START 
FI  • CLEAR 

EXEC  XSORT  BBSREP  DATA  A  BBBREP  DATA  A  1  4 

FI  2  DISK  START  DATE  A 

FI  3  DISK  FIRST  YEAR  A 

FI  4  DISK  WORKING  DATES  A 

FI  7  DISK  BBBREP  DATA  A 

FI  8  DISK  BBTREP  DATA  A 

FI  9  DISK  SSTREP  DATA  A 

Fill  DISK  BBNREP  DATA  A 

LOAD  REPC0N2  (CLEAR  START 

FI  •  CLEAR 


SIMGEN  EXEC 

EXEC  USE  FORTVS 
FI  2  DISK  REWORK  DATA  A 
FI  3  DISK  BBALIST  DATA  A 
FI  4  DISK  BBTEST  DATA  A 
FI  7  DISK  BALISTR  DATA  A 
FI  8  DISK  BTRANKR  DATA  A 
FI  9  DISK  BDURR  DATA  A 
FI  10  DISK  BPROBR  DATA  A 
FI  1 1  DISK  BTFOLLR  DATA  A 
FI  12  DISK  BTATTR  DATA  A 
FI  13  DISK  BTRCR  DATA  A 
LOAD  COVERT  (CLEAR  START 
FI  •  CLEAR 
EXEC  USE  FORTVS 
FI  1  DISK  BALISTR  DATA  A 
FI  2  DISK  BBPRED  DATA  A 
FI  3  DISK  BBNET  DATA  A 
FI  4  DISK  BBFOLL  DATA  A 
FI  7  DISK  BNETR  DATA  A 
FI  8  DISK  BFOLR  DATA  A 
FI  9  DISK  BPREDR  DATA  A 
FI  13  DISK  BTRCR  DATA  A 
LOAD  RPFOL  (CLEAR  START 
FI  *  CLEAR 
EXEC  USE  FORTVS 
FI  1  DISK  BRANUM  DATA  A 
FI  2  DISK  BFOLR  DATA  A 
FI  3  DISK  BRWCLST  DATA  A 
FI  4  DISK  BBANUM  DATA  A 
FI  7  DISK  BBALIST  DATA  A 
FI  8  DISK  BNETR  DATA  A 
FI  9  DISK  BBWCLST  DATA  A 
FI  10  DISK  BBINTEN  DATA  A 
FI  11  DISK  BBTEST  DATA  A 
FI  13  DISK  BTRCR  DATA  A 
FI  14  DISK  BRINTEN  DATA  A 
FI  17  DISK  BALISTR  DATA  A 
FI  20  DISK  RRES  DATA  A 
FI  21  DISK  BBRES  DATA  A 
LOAD  RAB  (CLEAR  START 
FI  •  CLEAR 


S1MSCHED  EXEC 

^CONTROL  OFF 

•  INTERACTIVE  EXECS  FOR  RUNNING  M1CORG 
&BEGTYPE 

•••••••  SIMSCHED  . 

SELECT  ONE  OF  THE  FOLLOWING  OPTION  CODES  : 

1  :  INTERACTIVE  RUN  WITHOUT  TEST-REWORK  LOOPS  (DETERMINISTIC  RUN) 

2  :  INTERACTIVE  RUN  WITH  TEST-REWORK  LOOPS  (STOCHASTIC  RUN) 

3  :  BATCH  RUN  WITHOUT  TEST-REWORK  LOOPS  (DETERMINISTIC  RUN) 

4  :  BATCH  RUN  WITH  TEST-REWORK  LOOPS  (STOCHASTIC  RUN) 

-  BATCH  RUN  WILL  BE  ACTUALLY  SUBMITTED  AFTER  22:00  (NIGHT  OPTION  USED) 
&END 

ieREAD  VARS  &1 

WF  .Sel  GT  .2  &GOTO  -BTCH 

W3EGTYPE 


&END 

WF.&1EQ.1  EXEC  M1CORG 

WF  . &  1  EQ  .2  EXEC  M1CORGR 

icGOTO  -FIN 

-BTCH 

&BEGTYPE 

ENTER  THE  LIMIT  OF  CPU  SECONDS  FOR  YOUR  BATCH  RUN  (  0  IF  NONE  ) 
&END 

&READ  VARS  &2 
WF  .acl  EQ  .3  &GOTO  -BT1 
WF  ,&1  EQ  .4  &GOTO  -BT2 
-BT1 

WF  ,&2  EQ  .0  &TYPE  SUBMIT  BMICORG  CLASS  B  NIGHT 
WF  ,&2  NE  .0  &TYPE  SUBMIT  BMICORG  CLASS  B  SEC  &2  NIGHT 
IcGOTO  -FIN 
-BT2 

WF  ,&2  EQ  .0  &TYPE  SUBMIT  BMICORGR  CLASS  B  NIGHT 
WF  ,k2  NE  .0  &TYPE  SUBMIT  BMICORGR  CLASS  B  SEC  &2  NIGHT 


IflCORG  EXEC 

EXEC  USE  FORTVS 
FI  1  DISK  BPARAMR  DATA 
FI  2  DISK  BBFOLL  DATA 
FI  3  DISK  BBPRED  DATA 

FI  4  DISK  BBANUk  DATA 

FI  7  DISK  BBALIST  DATA 
FIS  DISK  BBNET  DATA 
FI  9  DISK  BBWCLST  DATA 

FI  10  DISK  BBINTEN  DATA 

FI  1 1  DISK  BBRANK  OUT 

FI  12  DISK  BBTRAN  DATA 

FI  13  DISK  BBSHOPS  DATA 
FI  14  DISK  BBVCAP  DATA 

FI  15  DISK  BBTCAP  DATA 

FI  16  DISK  BBTREP  DATA 

FI  17  DISK  BBRAND  DATA 

FI  33  DISK  BBNRES  DATA 

FI  34  DISK  BBNCAP  DATA 

FI  35  DISK  BBNREP  DATA 

•  OUTPUT  FILES: 

FI  25  DISK  BBACWC  OUT 
FI  26  DISK  BBACSKP  OUT 
FI  27  DISK  BBTMILE  OUT 
FI  57  DISK  BBCMILE  OUT 
F12S  DISK  BBTMKR  OUT 

FI  36  DISK  SCHEDULE  OUT  (RECFk  F  LRECL  130) 

FI  37  DISK  BBUPDATE  OUT 

FI  40  DISK  STATUS  OUT 

•INPUT  FOR  CALENDAR  CONVERSION 

FI  52  DISK  START  DATE 

FI  53  DISK  FIRST  YEAR 

FI  54  DISK  WORKING  DATES 

LOAD  M1C0RG  (CLEAR  START 
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1DC0RGR  EXEC 

EXEC  USE  FORTVS 
FI  1  DISK  BPARAMR  DATA 
FI  2  DISK  BFOLR  DATA 
FI  3  DISK  BPREDR  DATA 
FI  4  DISK  BRANUM  DATA 
FI  7  DISK  BAUSTR  DATA 

FIB  DISK  BNETR  DATA 

FI  9  DISK  BRWCLST  DATA 
FI  10  DISK  BRINTEN  DATA 
FI  1 1  DISK  BBRANK  OUT 
FI  12  DISK  BBTRAN  DATA 
FI  13  DISK  BBSHOPS  DATA 
FI  14  DISK  BBVCAP  DATA 
FI  15  DISK  BBTCAP  DATA 
FI  16  DISK  BBTREP  DATA 
FI  17  DISK  BBRAND  DATA 
FI  18  DISK  BTFOLLR  DATA 
FI  19  DISK  BTATTR  DATA 
FI  20  DISK  BTRANKR  DATA 
FI  30  DISK  BDURR  DATA 
FI  31  DISK  BPROBR  DATA 
FI  33  DISK  BBNRES  DATA 
FI  34  DISK  BBNCAP  DATA 
FI  35  DISK  BBNREP  DATA 
•  OUTPUT  FILES: 

FI  25  DISK  BBACWC  OUT 

FI  26  DISK  BBACSHP  OUT 

FI  27  DISK  BBTMILE  OUT 

FI  57  DISK  BBCM1LE  OUT 

FI  28  DISK  BBTMHR  OUT 

FI  36  DISK  SCHEDULE  OUT  (RECFM  F  LRECL  130 

FI  37  DISK  BRUPDATE  OUT 

FI  40  DISK  STATUS  OUT 

•INPUT  FOR  CALENDAR  CONVERSION 

FI  52  DISK  START  DATE 

FI  53  DISK  FIRST  YEAR 

FI  54  DISK  WORKING  DATES 

LOAD  MICORG  (CLEAR  START 

FI  • CLEAR 


-  16  - 


BM3C0RG  SUBMIT 

SETT  CMSTYPE  HT 
CMSDISK  READPW  DYNPR0D4 
CMSDISK  WRITEPW  DYNPR0D4 
EXEC  USE  FORTVS 
FI  1  DISK  BPARAMR  DATA  D 
FI  2  DISK  BBFOLL  DATA  D 
FI  3  DISK  BBPRED  DATA  D 
FI  4  DISK  BBANUM  DATA  D 
FI  7  DISK  BBAUST  DATA  D 
FIS  DISK  BBNET  DATA  D 
FI  9  DISK  BBWCLST  DATA  D 
FI  10  DISK  BBINTEN  DATA  D 
Fill  DISK  BBRANK  OUT  D 
FI  12  DISK  BBTRAN  DATA  D 
FI  13  DISK  BBSHOPS  DATA  D 
FI  14  DISK  BBVCAP  DATA  D 
FI  15  DISK  BBTCAP  DATA  D 
FI  18  DISK  BBTREP  DATA  D 
FI  17  DISK  BBRAND  DATA  D 
FI  33  DISK  BBNRES  DATA  D 
FI  34  DISK  BBNCAP  DATA  D 
FI  35  DISK  BBNREP  DATA  D 
•  OUTPUT  FILES: 

FI  25  DISK  BBACWC  OUT  D  (PERM 

FI  26  DISK  BBACSHP  OUT  D  (PERM 

FI  27  DISK  BBTMILE  OUT  D  (PERM 

FI  57  DISK  BBCMILE  OUT  D  (PERM 

FI  28  DISK  BBTMHR  OUT  D  (PERM 

FI  36  DISK  SCHEDULE  OUT  D  (PERM  RECFM  F  LRECL  130 

FI  37  DISK  BB UPDATE  OUT  D  (PERM 

FI  40  DISK  STATUS  OUT  D  (PERM 

•INPUT  FOR  CALENDAR  CONVERSION 

FI  52  DISK  START  DATED 

FI  53  DISK  FIRST  YEAR  D 

FI  54  DISK  WORKING  DATES  D 

LOAD  BMICORG  (CLEAR  START 
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BM1C0RGR  SUBMIT 

SET  CMSTYPE  HT 
CMSD1SK  READPW  DYNPR0D4 
CMSD1SK  WR1TEPW  DYNPR0D4 
EXEC  USE  FORTVS 
FI  1  DISK  BPARAMR  DATA  D 
FI  2  DISK  BFOLR  DATA  D 
FI  3  DISK  BPREDR  DATA  D 
FI  4  DISK  BRANUM  DATA  D 
FI  7  DISK  BAL1STR  DATA  D 
FI  8  DISK  BNETR  DATA  D 
FI  9  DISK  BRWCLST  DATA  D 
FI  10  DISK  BRINTEN  DATA  D 
FI  11  DISK  BBRANK  OUT  D 
FI  12  DISK  BBTRAN  DATA  D 
FI  13  DISK  BBSHOPS  DATA  D 
FI  14  DISK  BBVCAP  DATA  D 
FI  15  DISK  BBTCAP  DATA  D 
FI  16  DISK  BBTREP  DATA  D 
FI  17  DISK  BBRAND  DATA  D 
FI  18  DISK  BTFOLLR  DATA  D 
FI  19  DISK  BTATTR  DATA  D 
FI  20  DISK  BTRANKR  DATA  D 
FI  30  DISK  BDURR  DATA  D 
FI  31  DISK  BPROBR  DATA  D 
FI  33  DISK  BBNRES  DATA  D 
FI  34  DISK  BBNCAP  DATA  D 
FI  35  DISK  BBNREP  DATA  D 
•  OUTPUT  FILES: 

FI  25  DISK  BBACWC  OUT  D  (PERM 

FI  26  DISK  BBACSHP  OUT  D  (PERM 

FI  27  DISK  BBTMILE  OUT  D  (PERM 

FI  57  DISK  BBCMILE  OUT  D  (PERM 

FI  28  DISK  BBTMHR  OUT  D  (PERM 

FI  36  DISK  SCHEDULE  OUT  D  (PERM  RECFM  F  LRECL  130 

FI  37  DISK  BRUPDATE  OUT  D  (PERM 

FI  40  DISK  STATUS  OUT  D  (PERM 

•INPUT  FOR  CALENDAR  CONVERSION 

FI  52  DISK  START  DATE  D 

FI  53  DISK  FIRST  YEAR  D 

FI  54  DISK  WORKING  DATES  D 

LOAD  BMICORG  (CLEAR  START 

FI  •  CLEAR 


OUTREP  EXEC 

EXEC  USE  FORTVS 
ROUTE  PRT  ETCH1 

•  INTERACTIVE  EXECS  FOR  RUNNING  OUTPUT  REPORT 
icBEGTYPE 

SELECT  ONE  OF  THE  FOLLOWING  OPTION  CODES  FOR  OUTPUT  (REPORT  OUT): 
0  :  PRINT 

1  :  WRITE  ON  DISK  WITH  NAME ’REPORT  OUT1 
&END 

&READ  VARS  &1 

&IF  .«cl  EQ  .0  FI  10  PRINT  (RECFM  FBA  LRECL  130  BLOCK  130 

k\F  ,8cl  EQ  .1  FI  10  DISK  REPORT  OUT  (RECFM  FBA  LRECL  130  BLOCK  130 

FI  1  DISK  START  DATE 

FI  2  DISK  BBTREP  DATA 

FI  32  DISK  SSTREP  DATA 

FI  3  DISK  BBRES  DATA 

FI  4  DISK  SSHPLST  DATA 

FI  7  DISK  SSMILES  DATA 

FI  8  DISK  STATUS  OUT 

FI  25  DISK  BBACWC  OUT 

FI  28  DISK  BBACSHP  OUT 

FI  27  DISK  BBTMILE  OUT 

FI  57  DISK  BBCMILE  OUT 

FI  28  DISK  BBTMHR  OUT 

FI  1 1  DISK  SSPWCO  FILE(RECFM  F  LRECL  100 

FI  12  DISK  SSPSKOPO  FILE(RECFM  F  LRECL  100 

FI  13  DISK  SSPMILEO  FILE(RECFM  F  LRECL  100 

FI  14  DISK  TOTAL  FILE(RECFM  F  LRECL  100 

FI  15  DISK  SSPWC1  FILE(RECFM  F  LRECL  100 

FI  16  DISK  SSPSK0P1  FILE(RECFM  F  LRECL  100 

FI  17  DISK  SSPMILE1  FILE(RECFM  F  LRECL  100 

LOAD  SSP  (CLEAR  START 

FI  *  CLEAR 


GRAPH  EXEC 

ATRACE  OFF 
SET  BLIP  OFF 
EXEC  USE  D1SSPLA 

LOAD  GRAPH  (NOAUTO  CLEAR  NOMAP 

A1F  ARC  NE  0  AEXIT  ARC 

FILEDEF  6  TERM 

FILEDEF  5  TERM 

FI  1  DISK  SSPMILEO  FILE 

FI  2  DISK  SSPM1LE1  FILE 

FI  3  DISK  SSPWCO  FILE 

FI  4  DISK  SSPWC1  FILE 

FI  7  DISK  SSPSHOPO  FILE 

FI  B  DISK  SSPSKOP1  FILE 

FI  9  DISK  TOTAL  FILE 

FI  10  DISK  SSPCAPO  FILE 

FI  12  DISK  STATUS  OUT 

EXEC  GRSAVE 

START 

EXEC  GRRESET 
SET  BLIP  ON 
AEXIT  ARC 


AcCONTROL  OFF 

•  INTERACTIVE  EXECS  FOR  SAVING  OUTPUTS  USING  PROJECT  NAME 
AcBEGTYPE 

.  KEEP  ••••••• 

THIS  EXEC  RENAMES  THE  OUTPUTS  WITH  THE  PROJECT  I.D.  TO  KEEP  THEM 
ENTER  THE  PROJECT  I.D.  (MAX.  8  CHARACTERS) 

AcEND 

AcREAD  VARS  Acl 

•  RENAME  INPUT  AND  INTERMEDIATE  FILES 
RENAME  SHIP  DATA  A  Ac  1  DATA  A 
RENAME  FIRST  YEAR  A  Acl  FIRST  A 
RENAME  WORKING  DATES  A  Acl  DATES  A 
RENAME  START  DATE  A  Acl  START  A 
RENAME  BBTRC  DATA  A  Acl  BBTRC  A 
RENAME  BBTCAP  DATA  A  Acl  BBTCAP  A 
RENAME  BBBCAP  DATA  A  Acl  BBBCAP  A 
RENAME  SSPCAP  DATA  A  Acl  SSPCAP  A 
RENAME  BBVCAP  DATA  AAclBBVCAP  A 
RENAME  BBNCAP  DATA  A  Acl  BBNCAP  A 
RENAME  BBTREP  DATA  A  Acl  BBTREP  A 
RENAME  BBNREP  DATA  A  Acl  BBNREP  A 
RENAME  SSTREP  DATA  A  Acl  SSTREP  A 
RENAME  REWORK  DATA  A  Acl  REWORK  A 
RENAME  RRES  DATA  A  Acl  RRES  A 
RENAME  BBRAND  DATA  A  Acl  BBRAND  A 

•  OUTPUTS 

RENAME  SCHEDULE  OUT  A  Acl  SCHEDULE  A 
RENAME  REPORT  OUT  A  Acl  REPORT  A 
RENAME  STATUS  OUT  A  Acl  STATUS  A 
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RETRIEVE  EXEC 

^CONTROL  OFF 

*  INTERACTIVE  EXECS  FOR  RETRIEVING  FILES  TO  ORIGINAL  NAMES 
&BEGTYPE 

. .  RETRIEVE  ••••••• 

THIS  EXEC  RETRIEVES  THE  FILES  TO  THEIR  ORIGINAL  NAMES  AND  MODES. 
ENTER  THE  PROJECT  I.D.  {MAX.  8  CHARACTERS) 

4cEND 


icREAD  VARS  Sc  1 

•  RENAME  INPUT  AND  INTERMEDIATE  FILES 


RENAME  &1 

DATA  A 

SHIP  DATA  A 

RENAME  ficl 

FIRST  A 

FIRST  YEAR  A 

RENAME  &1 

DATES  A 

WORKING 

DATES 

A 

RENAME  Scl 

START  A 

START 

DATE  / 

i 

RENAME  &1 

BBTRC  A 

BBTRC 

DATA  i 

k 

RENAME  &1 

BBTCAP A 

BBTCAP 

DATA 

A 

RENAME  &1 

BBBCAP A 

BBBCAP 

DATA 

A 

RENAME  &1 

SSPCAP A 

SSPCAP 

DATA 

A 

RENAME  &1 

BBVCAP A 

BBVCAP 

DATA 

A 

RENAME  Sc  1 

BBNCAP A 

BBNCAP 

DATA 

A 

RENAME  Scl 

BBTREP A 

BBTREP 

DATA 

A 

RENAME  &1 

BBNREP A 

BBNREP 

DATA 

A 

RENAME  &1 

SSTREP A 

SSTREP 

DATA 

A 

RENAME  Scl 

REWORK  A 

REWORK 

DATA 

A 

RENAME  Scl 

RRES  A 

RRES  DATA  A 

RENAME  Scl 
•  OUTPUTS 

BBRAND A 

BBRAND 

DATA 

A 

RENAME  &1 

SCHEDULE  A  SCHEDULE  OUT 

RENAME  Scl 

REPORT  A 

REPORT 

OUT 

A 

RENAME  Scl 

STATUS  A 

STATUS 

OUT 

A 

AEX1T 


^  » -V 


APPENDIX  C.  listings  of  Fortran  Programs 


1.  STARTDAY 

2.  CALENDAR 

3.  MILES 

4.  RESLST 

5.  SHOPS 

6.  INFILE  1 

7.  FOLLPRED 

8.  RAN  KM 

9.  FT  RAN 

10.  CTRAN 

11.  CAPDATE 

12.  SKOPCAP 

13.  PRECAP 

14.  REPDATE 

15.  REPCONl 

18.  REPC0N2 

17.  COVERT 

18.  RPFOL 

19.  RAB 

20.  MICORG 

21.  BMICORG 

22.  SSP 

23.  GRAPH 


IE:  STARTCAY  FOR  TRAN  A  VM/SP  CMS  RELEASE  3.1.E  6E1112,  CFG 


U.C.  BERKELEY 


STAFTDAY  FORTRAN 


9$  99C99  959CC0 


99$$$$999STAC001C 

STAC002C 

STAG003C 


THIS  PROGRAM  GETS  THE  STARTING  DATE  OF  THE  CURRENT 
PROJECT  USED  AS  A  PASlS  FOR  EXCHANGING  WORKING  DAY 
ANO  CALENDAR  DAY  IN  INPUT  AND  OUTPUT  FORMAT 


SUCCOR! 
STAC005C 
STACOOfcC 
SUCG07! 
STAC006C 
*393  SUG009C 


INTEGER  SmONTh, SCAY.SYEAR  STAG01GC 

1C  nR1TE(6»101J  STACG11C 

1C1  FORMAT!//, 2X, 'INPUT  THE  STARTING  CATE  OF  ThE  CURRENT  PROJECT?',/,  SUGC12C 

♦3X, 'MONTH,  CAY,  YEAR')  SUC013C 

REAC(5,3)SMCNTh,SDAY,SYEAR  STACG1AC 

WF1TE lb,103)SMCNTH,SDAY,SYE AR  STAC015C 

1C3  FORMAT!//, 3X, ’YOU  HAVE  INPUT  D A T E :  •  , 2 1 5 , 1 X , 1 5, 2  A , 'A S  THE  STARTING  STA0016C 

♦date  of  the  current*. /,3x, 'project, //, sx, *n  is  correct  or  not?  stacci7c 

♦IF  YES  PLEASE  INPUT  1,  IF  NOT  PLEASE  INPUT  C')  STAOG18C 

ROAD ( 5 , 3 ) I NDE  X  STAC019C 

1F( Index. EC. G)  GO  TO  ID  STAC02GC 

WRI TE (3 ,102  )SMCNTn,SDAY,SYE AR  STAGG21C 

1C2  FORMAT! 1CX ,31 i)  STA0G22C 

STOF  SU0023C 


END 


STAC02RC 


FILE:  CALENDAR  FORTRAN  a  VM/SP  IMS  RELEASE  3.1.E  e51112,  CFC  -  U.C. 

C 
C 
C 

C  * 

C  * 

C  * 

c  * 
c  * 
c  * 
c 


CALENCAR  FORTRAN 

THIS  PROGRAM  GENERATE  THE  WORKING  CATES  TABLE 
THE  RESULT  PUT  INTC  THE  FILE  •WORKING  DATES* 

THE  FILE  INCLUDES  10  YEARS  DATA  FRCP  THE  BEGINNING 
CF  THE  FIRST  YEAR  WHICH  YOU  WILL  BE  ASKED  TO  INPUT, IN  THE 
WCRKING  OATES  TABLE  MEANS  WORKING  DAY,  "0"  HOLIDAY 


ji.A  A  A  AAA  A  AAAAAAAAAAA  AAA  A  A  A  AAA  A  A  A  A  f  A  A  A  A  A  4  AAA  A  A  A  A  A  A  A  A  A  A  A  -A.  A  AAAAAAAAAA 
vvV  v  vvVVVi?  v  vvV-w??  VvvVv  TVVV  Vv  wv  vvv  vVYvrf  viyyv  vWfVVv»vvV  VYvvvwrv  vvv 

INTEGER  H0LICA(12, 31,10) ,  HOL 102(1 00, 2), DATE (31  )  ,H0N ( 12 ) 

INTEGER  SAT, SUN, MONTH, DAY, YEAR , YE ARN , CURA TN ,PVM , SUNA 
INTEGER  SYEAR, SMLN, SYR, 1  MONTH ( 31 ),LY EAR 
CHOOSING  THE  WORKING  0  AY  FCLICY 
WRITE ( 6 ,101! 

101  FURMAT  ( //,  3X ,  'IN  YCL'R  FACILITY,  IS  SATURDAY  A  WORKING  DAY  ?',//, 
♦3X,'IF  YES  PLEASE  INPLT  1,  IF  NET  PLEASE  INPUT  C'l 
RE AC(5 ,3) 1NDE X 
WRITCU ,119) 

119  FORMAT (//,3X,  'IN  YOUR  FACILITY,  IS  SUNDAY  A  WORKING  DAY  ?'.//, 

♦ JX , • IF  YES  PLEASE  INPUT  1,  IF  NET  PLEASE  INPUT  O') 

Rt  AC (  5  »  <) 1 NDL  XS 
IF  (lNQEXS.EG.l)GGTO  ISO 

if  (Index. ed. c  )gotg  ice 

WRITE ( t ,107) 

FUFMAT (//,3X, 'OH!  YOU 
GOTO  106 

IFilNOEX.E O.C  )G0T0  151 
WR1TE(G,15  2) 

FORMAT (//,3X,  'NO  REST  IN  WHOLE  WEEK?  BE  CAREFUL  YCUR  HEALTH  !') 
GOTO  106 
MR  I TE  (  6 ,15  3 ) 

FORMAT (//,3X, 


107 

150 

152 

151 

153 


STILL  worn  ON  SATURDAY.') 


REST  ON  SATURDAY  !') 
PROGRAM  WILL  DELETE  Tut 


•OH!  YOU  WORK  ON  SI  NO AY  AND 
C  ASK  INPUT  ANY  SUKCAY  WITHIN  THE  DURATION, THE 
C  NORMAL  HOLIDAY  IN  THE  WORKING  DAY  TA3LE. 

106  WR 1TE  (  6 , 15 A ) 

154  FORMAT  I //,3X,  'ENTER  THE  YEAR  WHICH  YOL  WANT  AS  THC  STARTING  YEAK 

♦  ,/,3X, • THE  PROGRAM  WILL  GENERATE  THE  WORKING  DAY  TAPLE  FOR  10  YE 

♦  S  USE' ,/.3X, ' START  INC  FROM  THE  YEAR  YCU  HAVE  INPUT') 

RE  AG ( 5 , * ) S YE  AR 

EYE  AR*S YEAR+S 
IF(1NDEXS.E0.C)GCTG  1 5C 
IF (1NDC  X.EO.l  )GCTO  459 
WRITE (t ,1C2)S YEAR, EYE  A F 

FORMAT  (//,3X,  'ENTER  ANY  DAT  C  OF  A  SUNCAY  BETWEEN  YE  AH', It  *3X,' AS 

♦  YEAR  '  •  16,3X,/,3X,'  (MM,ID,YY)  ') 

READ  (5 ,*)MCNTH,OAY ,L  YE  AT 
YLAR  =  1SC0+LYE  AR 

IFC(YEAR.GE.SYEAR)  .ANL  .(YEAK.LE.cfEAK  ))  GCTC  C2C 
WR I TE ( 6 ,615) 

FORMAT ( //, 3X ,  'THE  DATE  YCU  JUST  1NPJT  IS  CUT  CF  THE  RANGE  WHl Cm 
♦d  ASSIGNED,' ,/,*  PLEASE  REVISE  IT!') 

GOTO  630 

620  WRITE  (t  ,103)  MONTH,  CAY,  YEAR,  SYE  AT  ,fc  Yt  A  R 

103  FORMAT (//,3X, 'YOU  HAVE  INPUT  DATE*, 214, 16,',  IT  IS  A  SUNDAY' 
♦,/,3X, 'BETWEEN  YE  AR  • ,  1 1 , 3X , '  ANU  YcAR',16) 


biO 

1C2 


6i  b 


BERKELEY 
CAL0001C 
CAL0G020 
CALC0030 
C ALOOOAO 
CALO 0030 
CAL00040 
CAL00050 
CAL00060 
CAL00070 
CALOOCfcO 
CAL0009G 
Cal J010C 
CAL00110 
CAL00120 
CALC0130 
CAL00140 
CAL00150 
CAL00160 
CAL00170 
CALOOIHO 
CAL00190 
CAL0020C 
CAL00210 
C AL00220 
C AL 00230 
CAL0C24C 
C AL00250 
CAL00260 
CAL00270 
CAL002EG 
CAL0029G 
CAL00300 
CAL0031C 
CAL 00 320 
CAL  00330 
CA100340 
CAL00350 
•  C AL00360 
ARC AL00370 
CAL003M0 
CAL00390 
CAL004G0 
CAL  -’>04  1C 
CAL0042C 
CALCJ430 
U  CAl"?4<,C 
CALCC4SC 
CAlOO4t0 
C  A10047C 
C  A  L  J  0  4  F  C 
CAL00490 
YOCALOOSCO 
CALO061G 
CAL  J052C 
CALC OS  30 
CALD0S4C 
CALC0S5C 


IT  IS  A  SUNDAY' 


flit:  CALENDAR  FORTRAN  A  VM/SP  CMS  RELEASE  3.1.E  651112,  CFC 


U.C.  BERKELEY 


DUR  AT  N  =  DAY 

IFIKCNTH.EQ.l)  GOTO  NEC 
PVK*M3N  TH- 1 
DO  NOD  I=FVM,1,-1 


CAL00560 

CAL0D570 

CA103580 

CAL00590 


N  10 

N20 


N30 

NCO 


450 

472 


4  70 


N71 


471 

470 


455 


458 


C  GENE 
459 


7C2 

7C1 

700 


IF((1.EQ.2).0R.(I.LC.N  J.OR.I  1 .  EC.b).  QR  .  (  I  .EO .9 )  .OR.  1 1  .EQ.l  1 )  )  GOTO 
NIC 

DUR  ATN  =  OUR  ATN+31 
GOTO  400 

IF  <  1  .EC  .2)  GC TO  420 
OURAT  N  =  OUR  ATS +  30 
GO  TC  NOO 
LL=ROO (YEAR, 4  ) 

IF (LL.EQ.O )G0  TO  4 3C 

OURATN=CUR  ATN-»28 

GO  TO  NOO 

DUK  AT  N  =  DUR  ATN  -*29 

CONTINUE 

WRITE  (t  .ODOR  ATN 
NYEAR=YEAR 

iflnyear.eq.syearjgcte 

NYE AR=NYEAR-1 
MYEAR  =  F!OD(NYL  AR,4) 

IF  (RYE  AR.EQ.C  )GOTO 
DUFATN  =  0URATN-*365 
GOTO  472 

OUR AT  N  =OUR  ATN *366 
GOTO  4  72 

5UNA=NLD(CURATN,7) 

WKTTElb  ,*>DURATN 
IFCSUNA.GT.O)  GO  TC 
SUN=S JNA+7 
SAT  =  6 
GOTO  459 

IF (SUN A .EC .1  )GLTO  NEB 
SAT*S JN A-l 
SUN*5JN  A 
GOTO  459 
SUN=S JN A 
SAT*SJNA*fc 

rate  wgrking  day  taple,  set  all  date  is  working  cay. 

00  703  1*1,12 
00  7C1  J  =  1  ,31 
DO  7C2  K  =  1  ,10 
HUE  IDA ( 1 , J  ,K  )  *1 
CONTINUE 
CONTINUE 
CONTINUE 
JC  NEO  K*1 .1 C 
JO  4P5  1*1,12 

IF  (I1.E3.1  l.OR.d.  EC.  3). OR.il.  EC  .5).0R.(  1  .EC.71)GCTr 
IFIII.EQ. 61.CR.il. EC. 1C).LR. 41. 12. 12)  I  GOT  0  4  85 


4  5  5 


N65 


IF  11. NE . 2 1 GC 1 C 
1Y=K*SYEAR-1 
KY*RDD (  I Y , N  ) 


NF* 


CAL00600 
CAL00610 
CAL0062C 
CAL00630 
CAL006N0 
C  AL0065C 
CALOOtfcO 
CALOOt  70 
CALOObBO 
CAL0069C 
CAL00700 
CAL00710 
CaL0072G 
CAL00730 
CAL00740 
CAL00750 
CAL00760 
CAL00770 
CAL00760 
CAL00790 
CAL00800 
CAL00610 
CAL00B20 
CAL00630 
CALOOENG 
C AL0085C 
CAL00B60 
CAL00B70 
CALOOBBO 
CAL00E90 
CAL00900 
CAL00910 
C AL00920 
CAL0D930 
CAL009NC 
C AL00950 
CAE  00960 
CALJ097G 
CAL00980 
CaL 00990 
CALOICOC 
CAL01C1C 
CAL0102C 
C AlO  103C 
UAL01CN0 
CAL0105C 
C AL01C60 
CAL0107C 
CaLOIOFO 
CAL0109C 
CA.011CC 


F  ILE  :  CALENDAR  F OF  TRAN  A 
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HUllCAI  1  ,30, N  )=0 
IF  (KY.EC.C)GGTO  485 
HOI  1CA(1,29,K)=0 
485  CUNT  I NUE 
4b0  COM  1NUE 

C  CALCULATE  THE  NORMAL  WORKING  CAY 
IF ( 1N0E  XS.EC .  1)GLT 0  475 
IF (INDEX. EO.C  IGCTO  4tC 

C  ELIMINATE  ALL  THE  SUNDAYS  rRfM  THE  WORKING  DAY  TABLE. 

DU  6C0  K  =  1 , 1 C 
DO  6C1  1=1,12 

1FK1.EQ.2  ).LR.(1.EC.4  )  .  OR  .  ( I .  f  C  .  6) .  OR  .  ( I  .EC.9)  .OR.  ( I  .EQ.ll ) ) 
♦  810 

820  HOL IGA(I»SUN,K)=0 
$UN=S JN+7 

IF  (SUM.LE.31 ) GLTC  82C 
SUN-SUN “31 
GOTO  80 

810  IF(I.EQ.2)GCTC  830 
bl5  HOLICA (I*SUN*K)sG 
SUMSJN  +  7 

IF (SUN • Lb. 30 ) GOTO  815 

SUN=SUN-3G 

GOTO  30 

830  JM=K*S  YEAR  “1 
KM  =  H,OD  (  JM,  4) 

IF(KK.EQ.0)GCTG  b4 0 
635  HOLICA ( I, SUN, K)=C 
SUMSJN+7 

IF ( SUN . Lb • 26 ) GOT 0  62 5 

SUN=SUN-26 

GOTO  901 

640  HOL IDA ( I,SUN,K)=C 
SUN*SUN<7 

IF (SUN . LE • 29) GOTO  840 
SUN«SUN“29 
601  CONTINUE 
600  CONTINUE 

HR  1 TE  (  6  ,65 0 ) 

650  FORMAT!//, 3X, ’INPUT  ALL  HUL1LAYS  (OTHER  THAN  SUNDAYS):  MW, DC, 
♦/,3X» • IND  OF  DATA  PLEASE  PRESS  RETURN  TWICE  *  ,/,3X  ,  MF  THE  HDL 

♦  ATE  IS  THE  SAME  EVERY  YEAR,  THEN  INPUT  :  HK ,DC » 0  ' ) 

GJTC  305 

t  ELIMINATE  ALL  THt  SUNDAYS  i  SATURDAYS  F  R  L  N  THE  WJFKINC  CAY  TAHLE 
4tO  OU  210  K«1,1G 
DU  2 23  1=1  ,12 

IF ((1.EC.2 I.CR.t I.CC.4  J ,0R.( I.EC.fcl.CS .(I .FC.9  >.CR . ( I .FG.ll) ) 

♦  12C 

111  HOLICA! I ,SAT ,N)=0 
HOLICA ( I »SUN»K)=0 
SAT=SJN+t> 

5UN  =  SA  T  +1 

IF ( SAT . GE . 32  I  GOTO  112 
IF ( SUN . LE  *  31  )  GOTO  111 
HOL IGA ( 1 .SAT ,K)=0 


C ALO  111' 
CAL0112I 
C  ALO  1 1 3( 
CALO 114( 
CAL0115C 
CALOllbt 
CAL0117( 
CAL0116( 
CALO 1 19( 
CALO 120( 
CAL012K 
Gl T0C*L0122C 
CAL0123C 
CAL0124C 
CAL0125( 
CAL0126C 
CAL0127C 
CAL012EC 
CAL0129C 
CAL0130C 
CAL0131C 
C*L0132C 
CAL0133C 
CALD134C 
CaLO 135C 
CAL0136C 
CAL0137C 
CAL0138C 
CAL0139G 
CALO 1400 
CAL0141C 
CAL0142C 
CALO 1430 
CALO 14  40 
CAL0145C 
CAL014&C 
CALO 14  7C 
CAL0146C 
CAL014S0 
YY* ./CAL0150C 
ITAV  C  ALO 15 1C 
CALO lr2C 
CAL0152C 
CAL01540 
CaLO 155C 
C  L  0  1 5 1  C 
i ;  T OC ALO 1570 
CAL0156C 
CAL01S9C 
CALO  lfcOC 
CALO ltlC 
CALO  lt2C 
LAL01S30 
CAL0164C 
ill  Ht5C 


us  calendar  fuptran  a  VM/sr  cms  release  3.i.e  851112.  cfc 


Illl 


-  U.c.  BERKELEY 


112 


120 

121 


122 


130 


131 


132 


150 


SUN=SJN-31 

CAL0166C 

SAT*SJN*b 

CALO 1670 

GOTO  220 

CALOitbO 

SUN-S JN -31 

CALO 1690 

SAT  =  SAT-31 

CALO 1700 

GOTO  220 

CAL 01 7] 0 

1FU.EC.2)  GL'TO  130 

CALO  1720 

H011CA( I.SAT ,K)=0 

CAL01730 

H0L1DA(I.SUN,K)=0 

CAL01750 

SAT=SJN*b 

CAL01750 

SUN=SAT*1 

CAL01760 

IF (SAT • GE • 31  )  GOTO  122 

CALO 1770 

IF ( SUN . LE • 30  )  GOTO  121 

CAL017F0 

H0L1DA ( 1 »$AT  » K  )  =  0 

CALO 1790 

HOL ICA(I.?1»K  )=0 

CAL01E00 

SUN=S JN -30 

CAL01B1C 

SAT=SJN*b 

CAL01820 

GOTO  220 

CALO 1830 

SUMSJN-30 

CAL01850 

SAl*5AT -30 

CAL0185G 

H0L1DA ( ] ,31,K >=0 

CALO I860 

GOTO  220 

CALO 18  70 

Jk*MSYEAR-l 

CALO I860 

KL=KCD( JK.A) 

CALO 1890 

IF  (KL.  E  C.C  )GC TO  HC 

CALO 1900 

HOI IDA( I.SAT «K)=0 

CAL01910 

HOL 1DA( I»SUN,K)=0 

CALO 1920 

SAT=S JN+6 

CAL01930 

SUN=SA T*1 

CAL019A0 

IF (SAT. GE. 29)  GOTO  132 

CAL0196C 

JF (SUM . LE . 2E  )  GOTO  131 

CAL01960 

HOL 1DA(I»SAT»K)=G 

CALO 1970 

HOLILA (I,29.K)=0 

CALO  I960 

H011DA(I,30,K)*0 

CALO 1990 

H0L1CA( I,31.K)=0 

CAL0200G 

SUMS  JN  -2F 

CAL02C10 

SAT*SJN  *b 

CAL02C20 

GOTO  220 

CAL02030 

SUMSJN-26 

CAL920A0 

SAT=5AT-2fe 

CAL020t0 

HOL IDA (  I ,29. k  )-0 

CAL  02060 

HDL1C A(  I.30.N  )  =0 

CAL0207G 

HOL 1CA (  1 ,31  ,K  )=0 

CAL02080 

GOTO  220 

CAL0209C 

HOLUA  (  I.SAT  ,K)  =  C 

f  AL021C0 

HOLILA (  1  .SUN  »  K ) =C 

LAL02J JC 

Sat  *  s  jn +b 

CAL  J2120 

SUMSAT  *1 

CAL02130 

IF  (SAT  .GE.30  )  GOTO  15. 

CAL021RG 

IF (SUN.LE.29  )  GOTO  lt( 

C AL02 J5C 

H0L1DA( I.SAT, K)=G 

CAL02J60 

HOL 1 C A ( I.30.K  )=0 

CALU217C 

HOLILA ( 1 ,31,K  )=0 

L AL02180 

SUN  =S  JN  “29 

CAL  VJ9C 

SAT  =  S  JN  *b 

CAL022GC 

F1U:  CALENDAR  F  UR  T  RAN  A  VM/SP  LM  ;  RELEASE  3.1.E  851112,  CFC  -  U.i.  oEFNtLEY 


142 


220 

210 

301 


(OTHER  THAN  SATUFDA  YS  l 
S  RE  TLRN  TWICE • ,/,3X, 
EVERY  YEAR,',/,3X, 'THEN 


FROM  T  ME  WORKING  DAr  TABLE. 


GOTO  220 
SUN*SJN-29 
SAT*S  AT ”29 
HOL IDA (  I  »30,K )*0 
HCL1DA ( I ,31,K )=0 
GOTO  220 
CONTINUE 
CONTINUE 
WK 1TE  (  6  »3C  1 1 

FORMAT (//,3X  , 'INPUT  ALL  HOLIDAYS 

♦  MM,DD.YY',/,3X,'END  OF  DATA  PRti 

♦  •IF  THE  HOLIDAY  DATE  1  i  THE  SAHE 

♦  MM .DC  «  C  *  I 
GOTO  305 

ELIMINATE  ALL  TH[  SATURDAYS 
475  IFdNDE  X.EQ.l  IGOTO  47fc 
DO  903  K  =  1 .10 
00  901  1=1,12 

IF  KI.E0.2  ).  OR.  U.  EC.  4  ).  OR.  (I  .EC.  6).  OR  .(1  .EC. 9). OR. (  l.EQ. 

♦  910 

920  H0L1CAC l.SAT .K)=0 
SAT=S  A  T  +  7 

IF ( SAT . LE . 31  IGOTO  921 
SAT  =  SAT-31 
GOTO  9C1 

1F(I.EC.2)GLTC  930 
HOL IDA (1.SaT.K)=G 
SAT=SAT+7 

IFISAT .LE.30IG0TD  515 
SAT=SAT ”30 
GOTO  9C1 
JM*K*SYE  AF  -1 
KM=MOD( JM,4) 

IFUM.EQ.O  IGOTO  940 
HOL 1CA ( I .SAT  ,K I =0 
SAT=SAT  *7 

1F(SAT. LE.2B1GGT0  935 
SAT=SAT-2e 
GOTO  9C  1 

HOLlOAi I .SAT  »K1=C 
SAT  =SA  T ♦ 7 

IFISAT. LE. 29  IGOTO  94C 
SA  T 1 SA  T ”29 
COM  I  HUE 
CGMINUE 
Wk  mu  .9501 

FORMAT (//, 3X  .  'INPUT  AIL  HCLITATS  (OTHER  THAN  SATURDAYS  I  : 

♦  »//»3X  .  'END  l)F  OATA  PHASE  PRESS  RETURN  T*ICE',/,3X,  'IF  T 
♦Y  CATE  IS  THE  SAME  DAY  EVERY  YEAR.  THEN  INPUT  :  MM, EL, O') 

GOTO  3 L 5 
47b  WRITE (  fc .951) 

951  FORMAT (//,3X, 'INPUT  AIL  HOLIDAYS 
♦/.OX.'LNO  OF  DATA  FLEASE  PRESS  F. 

♦AY  CATE  IS  THE  SAME  EVERY  YEAM, 

3C5  OU  310  1*1, ICO 


910 

915 


930 


935 


940 


901 

9C0 

S‘„0 


MM  , CD  »  Y Y  '  ,/ 
cTJPN  TWl Ct ' ./ , 3  X , • I F  THE 
THEN  INPUT  :  MM, ID, O') 


CAL022K 
LAL0222( 
CAL0223C 
CAL0224C 
CAL0225( 
C ALQ226E 
CAL022  7( 
C AL0226f 
CAL0229C 
SUNDAYS  I :CAL0230C 
CAL023K 
1NPU1  :  CAL0232C 
CAL0233C 
CAL0234C 
CAL  1235C 
C  AL02  36C 
CAL0237C 
CAL023BC 
111)  GO T0CAL0239C 
CAL0240C 
CAL 0241 C 
CAL0242G 
CAL02430 
CAL0244C 
CAL0245C 
C AL024bC 
CAL02470 
CAL0248C 
CAL02490 
CAL02500 
CAL02510 
CAL02520 
CAL02530 
CAL02540 
CAL0255C 
CAL02560 
CAL02570 
C AL02580 
CAL02590 
CAL02t0G 
CAL02fclC 
CAL02<2C 
CAL92C3C 
CAL0264G 
C«L02fcSC 
CAL3?t  tC 
MM »  ,)D  , TY  'GALJ267C 
HE  HOL  K'ACAL02fceG 
C/L92t9C 
C  AL  J  ?  700 
LAL  J271C 
CAL  ’>2720 
HDLll  CAL  >2  73C 
CaL,'!?7‘iG 
C  AcV  75C 


FlLl:  CALENDAR  R  HR  TRAN  A  VH/SP  CMS  RLL£  A  5£  3.1.E  851112,  CFC 
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RE A0( 5 ,*,ENL  =  320)1  11  .JJJ  .KKK 

CAL02760 

HU11024I.1 )=1I1 

CAL02770 

HUL  102  (1*2  Is  JJJ 

CAL02780 

IF  (KKK  .EO.OJCCTO  3 8P 

CAL02790 

H01IC2( I,3)*KKK*19CC 

CAL02E00 

GOTO  310 

C AL02810 

3EB 

HOI 102(1, 3)  =  KKK 

CAL02P20 

310 

CUM1S0E 

CAL02L30 

320 

DO  333  1*1,100 

CAL02640 

1 1 =HQL I C2 ( 1 , 1  ) 

CAL0285C 

JJ*HQL 102(1 ,2  ) 

CALO  2860 

Kl=hDLID2( I ,3) 

CAL02fc70 

c 

HR  1 T E ( 6  ,*)  11  , JJ,K1  ,1 

CAL02860 

lF(Il.EG.O)  GOTO  340 

CAL02B90 

IF(Kl.LG.G)  CLIO  321 

CAL02900 

KK=HDL1C2( 1 ,3  )-SVL AP*1 

CAL02910 

HOL 1 D  A ( 11,JJ,KK)*C 

CAL02920 

GO  1C  330 

CAL02930 

321 

DO  322  K*1 , 1 C 

CAL02940 

H0L1CA ( 11 , JJ,K)=C 

CAL02950 

c 

WR1TE(6,$)  11  ,JJ,K 

CAL02960 

322 

CONTINUE 

CAL02970 

330 

CONTINUE 

CALO 2980 

c 

340 

WR1TE(2,501)SYEAR,EYEAE. 

CAL0299G 

c 

*>01 

FORMAT  (2X, ‘THE  WORKING  LAY  TABLE  STARTS  FRCM  YEAR',16,'  TO', 16) 

CAL03C00 

509 

FORMAT ( 10X.315) 

CALO 3010 

340 

DO  609  1*1,31 

CAL02C20 

DATE ( 1 1*1 

C  '-L0  3030 

600 

CONTINUE 

CALO  3040 

00  669  1*1.11 

CAL03C5C 

MOM  11*1 

CALO 3060 

660 

CONTINUE 

CALO  3070 

YE  AKN*  S  YEAR 

CALO  30b0 

DO  1 19  K=1 ,10 

CALO 3090 

WRITE (2  ,503) ((H0L1 LA(1 , J  ,K ) , J* 1 , 31 , 1 ) ,  1  *1 , 12 ,1 ) 

CALO 3 100 

c 

WRITE  (6,5031  ( (H0L1CAU  ,  J  ,K  1 ,  J*1 , 31  ,1  1  , 1 *1  , 12 ,1 1 

CALO  31 1 0 

c 

WRITE (2 .502) YEARN, TATE 

CALO  3120 

YE AKN* YEARN+1 

CALO  3130 

610 

CONTINUE 

CALO  314  0 

c 

502 

FORMA  T ( //, IX , 'YLAR**,14,31I3,12( i X,  •  MCMH*  '  ,  ) 2 . 1 X  ,31  13  ) ) 

CALO  3150 

503 

FORMAT ( 3112) 

CAL0316C 

c 

505 

FORMAT ( ✓ ,1 X, 'MONTH* *,12, IX, 311  J) 

CALO 3170 

t 

502 

FORMAT!//,  IX  ,  '  YE  AR  *',  1  4, 311  3, /.imx,  'MONTH  •  ,  1  5 , 311  ?  ./ )  ) 

CALO  31bO 

00  50  1=1,  ICG 

CALO  3190 

IF  (hCHC2(  I.D.EO.OKCTC  60 

CALO  J2C0 

IF (NCL 1C2( I ,3).GT.0)CLT0  21 

C AlO  32  1 0 

WRITE  (4.1CHHCL1D2  ( I ,  J  ) .  J=1 ,  i  ) 

CALO  3220 

c 

10 

FORMAT  (/,2X,  •  YOU  HAVE  INPUT  THE  FIXES  Hfl  1 0  A  Y  FOR  EACH  YEAR  0*.'./ 

.CALO J23G 

c 

♦  10>,'NCMh*«,  15, 5X  ,  'DA  Y=  •  .17) 

CAL  0  3240 

10 

FORMAT  (/,3X,  'YOU  HAVE  If. PUT  THE  MJLlDAY  ON  '  ,  /  ,  1  G  X  , 'MONTH*  '  ,  1  5  , 

CALO  32  50 

♦5X, 'DA Y*',I5,5X,' YEAR* EVERY  YEAR  •) 

LAL03i(C 

GOTO  5C 

CAL03270 

21 

WRITE  (  4  ,11 )  (E.CL1C2  (1  ,J)  ,  J*1 ,3) 

t  AL03/PC 

11 

FORMAT (/,3X,  'YOU  HAVE  INPUT  THL  H Jl 1 0  '  Y  ON ' , / , 1CX , *  MONTH  * 1 , 15 

CALO  WC 

♦SX.'DAY*', 15.5X, 'YE  AR * • , 17) 

CAL033C0 

Fill:  CALENDAR  F  UR  T  RAN  A  VM/SP  CHS  RELEASE  3.1.E  e51112,  CFC  -  U.C 


LKKt  LEV 


SO  CONTINUE 
bO  WRITE  ( t  »7C  ) 

70  FORMAT ( //»  2X  »  '  IF  VOL  KANT  CHECK  I  HE  H 
♦LOCK  FILE  "HOLIDAY  CATl".',//) 

00  60  1=1.31 
1MCM  H  ( 1 1  *  I 
bO  CONTINUE 

WRITE  ( 6  ,599) 

599  FORMAT  (//, 2X  ,  'IF  YOL'  KANT  THE  WORKING 
♦  "KCRK1NG  OAY "•*»/✓) 

IYE AR=SYEAR 
00  65  1=1.10 
WRITE  (b,9C)IYEAR 

90  FUE.NAT  (//.10X. 'YEAR* ,110) 

WKITE(6.92)( 1 HONTH (IX), IX =1,31 ) 

92  FORMAT (/.15X.3113) 

00  tl  J  =1, 12 

WkITKfc  .91  )J,  (H0L1DA(J,KX,I )  ,<X  =  1,31  I 

91  FORMAT (/, 2 X, 'MONTH  =  • , I  3 , AX , 31 1  3  I 
68  CONTINUE 

1YEAR* I YEAR+1 
WR 1TE ( fc  ,93  I 

53  FORMAT  (/,'==  =  =  =  =  =  =  =  =  =  ====  =  =  *  =  =  =  =  =  =  ==  = 

65  CONTINUE 

WRITE! 1  ,3fc ISYEaR 
36  FORMAT (10X, 15  ) 

STOP 

END 


V 

\ 

i 

CAL0331C  I 

CAL0332C 

L1DAY  YOU  HAVE  INPUT  PLEASt  CAL0333C  I 

CAL033AC 
CAL0335C  J 

CAL0336C 
CAL0337C 
CAL0  336C 

DAY  TABLE, YOU  CAN  PRINT  FILFCAL0339C 

CAL0350C 
CALO  3510 
CAL03A20 
CAL03A30 
CAL03<i4C 
CAL0355C 
CALO 3460 
CALO  35  70 
CALO  3580 
CAL03A9C 
CALO  3500 
CALO  3510 
CALO  3520 

ssxss*  =  =  ®=  =  =  =  =  =  *  )  CAL035«t0 

CALO  3550 
CALO  3560 
C AL03570 
CAL03560 
CALO 3590 


1 
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c 

C  MILES  FGRTRAN 

C  . . — 

C  MILES  read  MILESTONE  NODES  INTERACTIVELY,  AND  ADD  MILESTONE 

C  ACTIVITIES  AND  DES1RE0  CATES  AT  THE  END  OF  THE  FILE  BE  DATA. 

C  USER  SHCLLC  GIVE  NUMBER  OF  TOTAL  DATA  IN  ORIGINAL  BB  DATA 

C  AND  MILESTONE  NODES. 

C  *  WHEN  THERE  ARE  MORE  THAN  IOC  MILESTCNES,  CHANCE  DIM.  LF  MILE 

C 

c  $3333 33 S3 $3333 3$ C$33  33SS3SS 

DIMENSION  MILE (100*2) *11 (2COOO) »MCaTE (3)*lQtT(4 ) 

INTEGER  HOLCY (120,31) , YE AR , SmON , SC  A Y ,SYR 
COMMON/ CCNT/  YEAR, HOLD Y , SMON ,S0aY«SYR 
C 

DC  1  1*1 ,2C000 
REAC(1,1C5,END*99)  11(1) 

1  CONTINUE 

c 

NR1TE(6,301)  1 

301  FCR(AT(/,*  NJMEER  OF  EB  DATA  RECORDS  IS  MORE  THAN  *,I5, 

•»/,'  CHECK  PROGRAM*) 

99  NNUH  = I “  1 
REWIND  1 
C 

HPITE (5 ,102  ) 

1 C2  FCRMATl/,*  ENTER  NUMBER  OF  MILE  STINE  NODES  TO  BI  ADDED.*) 
REAC(5,<)  MNODE 
lF(MNODE.LE.C)  STEP 
DC  10  1*1,  MNODE 
hPITE16,103)  1 

103  FORMAT (  •  ENTER  NODE  OF  MILESTONE  *,13,*  AND*,/ 

♦  ,*  DESIRED  MILESTONE  DATE.  (  MMCDYY  OR  C  IF  NONE,' 

♦  ,*  E.G.  3C3, 122585  OR  3C3,0*1 
REAC(5,*>  (M  IlE ( I , J) , J*1 ,2) 

1C  CCNT I N JE 

C 

WFITE (5 ,104  ) 

1C4  FCRMATl/,'  thank  YOU.  IN  PROCESSING  ...»> 

C 

C  TRANSLATE  CALENDAR  DATES  INTO  NLFKlNG  CATES 

C 

RE A[ ( 3, ICO  )YEAR 
ICC  FORMAT ( 1CX  ,  15  ) 

DC  195  1*1,120 

RE  AD (4, 110 ) ( HOLD  Y ( l,J),J=l,3i) 

195  CONTINUE 
11C  FORMAT (3112) 

READ (7,*)SMLN,  SCAT,  SYR 
C 

DC  15  1*1, MNCCE 
I F l M I l£ ( 1 ,2  ).Et.DJ  CO  TE  15 
IYER  *  w  I  L  £ (  1  , 2  ) / 1 0  0 

♦  IMLN***!  LE  (1  ,2  )/10:CC 


mIlCCOI 

M1LCC02 

MIL0003 

M.1LC004 

M1LC005 

M  iLCOOt 

M1LC007 

M  IlCOOB 

MILC009 

MILCC1C 

MILC011 

M1LC012 

MILC013 

M1LC014 

M1LCC15 

MlLCClfc 

M1LCC17 

M1LG01B 

MIlCO 19 

MILG020 

M  HOC  21 

M1LC022 

M  1LG023 

M1LC024 

M1LCC2S 

Mlt.CC2t 

M1LC027 

M1LC02B 

MILC029 

MlLCO 30 

M1LCC31 

M  1L  CO  32 

M IlCC  33 

M  IlC0  3<» 

M1LCC35 

M1LC03O1 

M1LC037. 

M1LCG3B 

MlLCO 39 

MIlCO  <*0i 

MHCC411 

M  1L«C<»2; 

M  ILCC  43v 

M  IlGC  4<h 

MIl  :c  <»5\ 

M 1 1  CC  4b  v 
M 1c  CC  4  7  v 
Mil  C04K 
Mil  CD  49; 
MllCCSOC 
mIlC051C 
m1lC052( 
M II  wC  530 
M1LCC5AC 
M JL  CC55c 


| 
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MCATE(3)SMILE  (1  »2)“IYER<:1C0*19G0 

MlLOO  5b< 

MCA IE ( 1 )  =  IRON 

M  1lG057( 

MC A T£ 1 2  ) * (K 1 L£ ( 1 ,2)-lMGN«10000-MCATE (  3 ) « 19  OG  )/ 1  CO 

M ILCO 58( 

PRINT  *,(MCATE( J),J*1,3) 

M  1lC059( 

CALL  CALA(MDATE , MILE (  I  ,2  )  ) 

MlLC0t>0( 

15 

CCNTINUE 

MlLCOblC 

C 

MlLC0b2( 

REACt  1,1C5,ENC  =  99  9)  (11(1 ),I >1,nnLM) 

MlLC0b3( 

105 

FCRPATl Al) 

MlLC06«i( 

C 

HlLC0b5( 

c 

END  NCD  £  GF  MILE  STONE  WILL  BE  C 

MlLCObbC 

I  TC  =  0 

M  lLC0b7( 

CC  20  I=1,MNCCE 

I  GUT  (A)*MGG(MlLEtI  .1}  .1C) 

IGlT (3)=(kC0(mIlE( 1 .1)  ,100)-I1)/1C 
IGLT  12 )*(MCC(MILE( 1.1) , 10001-1?) /ICO 
lOtT  (U*(MGD  (MILE  (  1,1)  .100CC  )-I3)/10C0 
2C  HRI  TE  ( 1  ,2CC  )  (ICUT(J)  ,  J=1  ,<t )  ,1TC»M1LC(1  ,2) 

2  00  FCRMAT{15X,A11,1X,I5,15>.,  13) 

hR I TE 12,202)  (MlLEtI»l),Isl, MNCOt ) 

20 2  FCRmAT ( 2CI<* ) 

STOP 

C 

999  wR 1 T£  ( 6 ,30C )  NNUM 

3  CC  FCRMAT(/,'  N  JM6E  R  C.F  66  LATA  RECCRLS  IS  LESS  T  nAN  ',15, 

♦/.*  CHECK  ') 

STOP 

END 

C 

c 

SLBFOLTIKE  CAL A l REPGR T ,RE P) 

C 

C 

INTEGER  H0lCY(120,31)  .REP.YEAF  , SmCN, SCaY , SYR 
INTEGER  REPCFTm.wC.MGN.OA.YR 
CCmhQN/CCNT/  YEAR ,mCl3Y, SMCN , SC AY.SYR 


REPCRT(2)=REPCRT12)-1 

ISYF  *(SYF-YEARJ*12  +  SMGN 
wC  *  C 

IYR  *(R£FCRT (2)*YEAP)$12*REFLRT (1) 

I  F  (  1YR.lT.1SYR)GOT0  e>50 

IF  (  lYS.EL.  ISYMGCTu  530 

OC  OC  MI*ISYF,IYR 

I F  (  M I  .EC.1SYR)GCTG  <t  1  Z 

IFlM  .EO.IYFIGCTC  A20 

OC  OC  “K*i,31 

nL =RD4HCL0Y (MI ,MK) 

ARC  CCMINJE 

gctc  o: 

OC  LM=FCP;RT(2) 

OC  OC  M L  s  1  i L M 
•.C  =  RO«mClL'Y(hI,hl) 


MIlC068i 
M 1LC069* 
M1LGC70C 
MlLOO 7 1 i 
M 1LG0  72( 
M1LC0  73C 
M IlGO  7Ai 
M  1l  CO  75( 
M IlCO 761 
M  1LC0  77( 
M  lL  CO  781 
MRC0  79C 
M1LCG0OI 
MlLCCBH 
M  1L  CC  82( 
M1L0083C 
MILC08«*C 
n  IL0085C 
MlLOOfltoC 
m  1lCC87( 
M 1L  OC  86t 
M  1LC089C 
M I LC090C 
M  lL 0C91C 
M  ILC092C 
M lL  0093C 
MlL0C9«»C 
M1LCG95C 
mIlCG9oC 
M  IlCu97l 
M 1 L  C09t>C 
M1LC099C 
MILC100C 
MlLClClC 
M 1 L  C 1 C2C 
K 1 L  Cl C3C 
MlLClOO 
r  RC1C5C 
h lLolObC 
M 1l  Cl 07C 
M IlCI OeC 
r ILC109C 
m IlCI IOC 
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A  30 

CONTINUE 

•  M1L0111 

GCTC  ADC 

M ILOI 12 

A  10 

DC  A5C  MJ*SCAY,31 

MILC113 

WC*RD*HCLDYlMl , M J ) 

MlLOllA 

A50 

CCN7INUE 

M1LC115 

ACO 

CONTINUE 

MILC116 

GCTC  A  7C 

M IlCI 1 7 

5E0 

LK  =  REP3RTU  ) 

MiLCiie 

1F(LK.LT.SCAY)CCTC  650 

M1LG119 

DO  AbC  L1=SCAY.lK 

MILC12G 

hC  =  kD-*H;LDY(lYR,Ll  ) 

M1L0121 

AtO 

CONTINUE 

MIlOI 22 

A  70 

REP  SWD 

M  1L01  23 

GCTC  50C 

M1LG12A 

MIlOI  25 

650 

print  s,»  illegal  calendar  dates  please  check* 

M1LC126 

RFP  *  D 

HLG127 

5C0 

CCNT I N  jE 

M1LC128 

PRINT  CORRESPONDING  WORKING  DATE  *  * , REF 

M 11  Cl  29 

RETLRN 

MILOI 30 

CND 

M1LC131 

nnonnm 
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£  ((  v  v  r  v  v  v  v  v  v  vvvv  v  vCO  vv  vvvvv  v  v  Cv^  *^v  vv  r  $  O 


RESLST  FORTRAN 


KESLST  REACS  FILE  BESiSORTED  BY  SHOP  ♦  ROT  KCEN  TE  R  )  AND  MAKES 
A  FILE  EERESt  SEQ  .  NUM ,  SHCP*RCFKCE N T E R ) 

SRC  *  SHJF-»W0KKCENTER  INPUT 

h  C ( ?  00  »  2  )  =  SEQ.,  SHOP+NORKCENTER  OUTPUT 


CA  A  A  A  A.  AAA  A  A  A  AAAAAA^'AA  A  A  A  AA>  J 

V  v  V  V  W  S' v  V  y  VV  V  V  V  V  V  V  V  V  V  v  w¥  1 


:  $£$$$ 4 bO if ? 1 1 i? f ^ 5 


if* 


INTEGER  RC(5CC,2),SKC,SW1 
I  =0 
SRI  *0 

1  REAC(1»1C0,END=1Q)  S*C 
IF  (SrC.EG.SK1)  GOTO  1 
1*1*1 
RC(I,1)=I 
mCU  ,2)  =  S*C 
SrI^SrC 
GCTC  1 
iC  N  =  I 

DC  3  I  *  1 , N 

3  »F1TE<2 ,101) <RC( 1 ,J),J*1,2) 
ICG  FCRMAT(2tA.If ) 

1C1  FCRMATl I3.2X.15) 

STOP 

END 


RES  00 01 

RESC002 

RESC003 

RESG004 

RE  SCO 05 

RES0C06 

RESC007. 

RLSGOOtx 

R  E  SG009< 

RESC0 10< 

RES0011* 

RESC0  12< 

RESC013( 

RESCClAt 

RESC015< 

RE  SCO lfc( 

RESC0  17( 

RESOO 18( 

RESCG19C 

RESG020C 

RESG021C 

RES0022C 

RESC023C 

RESG02*»C 

RES0025C 

RES0C2&C 

RESG027C 

RE  SC0280 


fill:  SHOPS 
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Li  «C  *  BE  RkEL  Et 


C 

SmCOOOK 

C 

SHCC002. 

C 

SHCFS  FORTRAN 

SH0COO3C 

C 

ShOCOO^C 

c 

SMOFS  READS  FILE  3BRES,  AND  MAP  EACH  RQFKCEMER 

TO  THE 

ShCCC05( 

c 

CCRFES3CND1NG  SEQUENTIAL  ShCP  NUMEER  IN  OUTPUT 

file  eesHOPs, 

SMOOOObC 

c 

AND  ALSO  CREATES  OUTPUT  FILE  SSHPlST  TO  feE  USED 

LaTER  FOR  SSP. 

SMOCOO?( 

c 

SHCC008( 

c 

■  * V  v**  ^  A  A  A  A  A-  A  A  A  »*.  A  A  A  A  A  A  A-  A  A  A  -*»  A  A  A  A  A-  A*  A  A  #•  A  A  A  A  A  A  As  As  A  A  -A  A-  As 

vwvv^YvVvvw^'vVvyvvwvrAVVvwvAvVVVv^AVvv  VV  VV  V 

SM.:C0G9( 

SMCCO ICC 

DIMENSION  1NRES<250)  ,*1AF(25G) 

SMC0011C 

SmOOO 12C 

DC  10  1=1,250 

SM00013C 

FEAD (1 ,1C0,END  =  19)  INRES(I) 

SmCCOIAC 

ICO 

F0RMAT(5X,I5) 

SMOC015C 

10 

CONTINUE 

SHOCOibC 

PRINT  'DIMENSION  IS  NOT  ENOUGH..  PLEASE  CHECK 

• 

• 

SHC0017C 

STOF 

SMOOO 18C 

19 

MM  =  1-1 

SMC0019C 

lSAVE*INKESm/100 

SM00020C 

NSAVE  =1 

SM00021C 

MAP ( 1  )  =  1 

SM00022C 

c 

SM0C023C 

DC  2D  1=2, NUM 

SMC  002AC 

IF ( ( INRES( I )/::C).E2. 1  SAVE)  THEN 

SM0C025C 

MAP(  I  )  =NSAVE 

SHCD026C 

else 

SMOC027C 

I  SAVE  =  1NRE  S ( I )/100 

SM0C02bC 

NSAV£=f.SAVE-»l 

SM.:C029C 

MAP ( I ) =NSAV£ 

SM0C030C 

ENCIF 

SHC  00310 

cc 

CONTINUE 

SHC0032C 

c 

ShCOO  33C 

WRITE  (2  , 20C  )  (MAP(I),I=i,NUM) 

SHC003<*0 

2  CO 

FCRMAT(2Cl<tl 

SHCC035C 

«R1TE  (<t  ,201 )  NUM 

SMCCO  360 

2  Cl 

FORMATE 'Nome  OR  OF  wCRKCENTLR  * ,  15  ) 

SHCC037C 

WRITE  (<i  ,203  )  NSAVE 

SHCCC380 

2C3 

FORMAT!  'NUMEER  OF  SHOPS  • , I 5 1 

SMCC039C 

C 

SHCCOAOO 

ISAVE=INRES(1)/1DD 

SMCCC«»1C 

MAP(1)=ISAVL 

SMCCO A2C 

NC  *  1 

SMCCG430 

DO  2D  I  =2,  MM 

SM.c:c<.<tc 

IF  II  SAVE .NE. (  l  NR.ESU)/iOO)  )  ThE  N 

sm::c«*5u 

NO=r.L‘-»i 

SMv-sCA6», 

ISAVt=lNRES(I J/1DD 

Sm,.C0‘»7C 

MAPI  NO)* ISA  VI 

SmCCOAEO 

ENCIF 

sm:co‘*9o 

20 

CONTINUE 

sm:co5oc 

C 

SMCC051C 

^R1T5(3,2D:)  (MtP(I) , 1=1 ,N0) 

SMCCC520 

2C2 

FOR MAT(2CI9) 

Sm.CC530 

C 

smc;o5<*o 

STOF 

S  t-CCO  550 
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V  V  V  V 


Zif-JSZ-. 


r$v  C C  t  C  v  v  Ov  it$?v$vvv$tC$vSvftt?v 


1NE1LE1  FORTRAN 


INFIlEI  FEaCS  FILES  BBRES,  BBSLRT  (SCRTET  BY  I,J  NCDE.SHLP-* 
«CRKCENT.),  ANC  MAKES  OuTPtT  FILES  B e AL 1 S T .B BkCL S T , BE  1  NT EN. 
5EAMJM.  IT  SETS  THE  TYPE  CF  ACTIVITIES,  CALCULATES  INTENSITIES 
AND  NUMBER  CF  SHOPS  REQUIRED  FOR  EACH  ACTIVITY. 

INFILES  AGGREGATES  INFORMATIONS  CN  SHCP  LEVEL. 


•  .*■  A  A  .V  .*•  A  ia*  A  A  A  A  A  A  A  A  A  A  J 

-  w  v  v  yy  vyrv  vwyvv  y  v  y  y  i 


INTEGER  FROM,  TC , SHOP , CENT ER .DURAT ,ACTLSTl250C,5),ANUNl250C) 
1  ,an,wC  aCTV  (2500,7C)  ,RESLST  1200)  ,NRE  S  ,F  R  ,  T  T  ,  RE  SNUf ,  INC  »MhR 
REAL  1NTLEV  (2500,70 
COMMON/ AAA/RE  SLST ,NRES 

DC  11  1=1,200 

REAC ( ID  ,111  ,END  =  12I  RESLST(I) 

NRE  S= I- 1 
1  AC  T  I  V  =  C 
KCuF  =-ic 
F  F  =  C 
T  T  =  C 

1  REAC( 1 ,  1C0,END=3)  FROM  , TC, S HOP, CENTER, NHR.D UR  AT , JTYPC 
LINE=LINE-»1 

FORMAT ( 1 5  X  ,  19  , IX, 15, IX, 13,12 ,  2  X  ,  I  f ,2  A, 13, IX, II ) 

FCFNATI57  ,15) 

IF(FRCM.EQ.FR  . AND . TO . EG . T T )  GOTO  2 
A  NEh  ACTIVITY  :  STORE  ACTIVITY’S  CATA 


KLUMDURaT 
F  P  =  F  R  0  M 
T  T  =  TO 

IACTIV=IACTIV-’1 

ANuMl  IACTIV)=0 

ACTLSTl  IACT1V,1)  =  IACTIV 

ACTLSTl I  AC  T 1 V  ,2 )  =  FROM 

ACTLSTl  1  ACT  I  V  ,  3 ) =  TO 

ACTLSTl  I  ACT  IV,  9  )  =  CUFAT 

IF (  IT YP£  ,NE .1  )  ACTLST(IACTIV,S)=C 

lFlITYPE.EC.l)  ACTlSTUACTIv.S  )  =  i 

IF  It  JR  AT  ,GT  .0.  ANO.  TO.NE.O  )  Gy.TL  3? 
ACTLSTl  IaCT  IV, 5)0 
IFlTO.EC.:)  ACT LSTiIaCTIV,’  )  =7 
GETC  1 

3  1nCCLC=9S99 
phR ] =  C 


iNFOOOli 
I NF  0002* 
INFGC031 
1  NF  CO  09< 
1NFC0051 
1  NF  OC Ob' 
1NFC007. 
lNFGCOB. 
INFC009: 
INF 00  IOC 
1 NF  00  111 
I  NF  CO  121 
I  NF  00 1 31 
INF  com 
INF0015C 
INFCC16C 
INF0017C 
1NF001BC 
INF0019C 
1NF0020C 
INF0021C 
INFG022C 
1NFCC23C 
1NFC02«*C 
1 NF  00 25C 
I  NF  00  2  bC 
1NFC027C 
1NF0026C 
1 nF  0029C 
1  NF  GO  300 
1NFC031C 
INF0032C 
1  NF  GO  330 
INF  CG39C 
I NF  C0  35C 
I  NF  00  3bC 
InF 00370 
INFCC3BC 
I NF  CO  390 
INF  00900 
INF  00  910 
1NF0C  92C 
I  NF  00*130 
1NFCC99C 
1NFC095C 
INF  */C 9b  C 
JNFC097C 
1  NF  CC  9  90 
INFCC990 
1 NF  CG  500 
I NF  CO  510 
1NF0C52C 
1  NF  CC'  530 
INF  0 C 5 9 v 
INF  U  55C 


SAME  ACTIVITY  J 


FILE:  1NF1LE1  FORTRAN  A 
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2  UC=SHQP 

IF( 1WC.NE. IkCOLO)  GOTO  77 
MHR  *MhRl-»MHR 
MMR1=MhR 
GCTC  73 

77  ANUMt  1ACTIV)  =ANUMUACTIV) -»1 
AN=ANLM»IACTIV) 

IkCCLC  =  IKC 
MFkl=MHR 
C 

C  REPLACE  RESOURCE  'CODE*  ST  ITS  INCEA 

CALL  SEARCH ( I NC* 1  DC *C ENTER , R E SNUM ) 

IFIFESNUM.NE.9999)  GOTO  7 

PRINT  ‘ACTIVITY  NUM  =  • . I  AC T 1 V , •  RESCUFCE  NCT  IN  LIST 
PRINT  *,'3  LCGICAL  ERROR...  CHECK  Y  C  LR  SOURCE  ....... 

7  hCACTVI  iactiv,an)=resnuh 
76  IF(CURAT.nE.C)  GOTO  8 
INTLEV1 I ACT  I V , AN ) =C  • 

GCTC  1 

6  INTLEVI  1ACT1V.  AN)*  FLOAT  (MHR)/DtlRAT*.CC5 
GCTC  i 

3  NACTI V=1ACT1V 
C 

DC  4  1  =  1,NACTIV 

kR I TE  ( 2 . 2GC  )  (ACTlSTII.J) ,J=1,5) 

IF(ANLKI)  .EQ.C)  GO  TO  4 

hRITE (3 ,40C  )  (hCACTVC I ,J)  ,J=i,ANUM I )  ) 

*R I TE ( 4 , 30C  )  (INTlcVII.J)  ,0*1,  ANUM1  )) 

4  CCNTINJE 

WRITE (7, 4 DC)  ANUM 
1C  1  FCRNATI2CI4  ) 

200  FORMAT  (  14,1  A,  15,1  A,  15, 17,21,  ID 
3CC  FORMAT ( 1CF6 .2 ) 

4C0  FCRMAT12CI4) 

STOF 

END 


SLBFOLT INE  SE ARCH t CODE .LOCATN) 

IM EGER  maT ( 2C0  )  .uENGTh.lCCATN ,CGCE 
COMMON/ A A A/MaT .LENGTH 
L1=LEnGTm 
LC*  1 

if(c::e .gt.matili) )  goto  t 

IFICJC-.LT.MAT(I)  )  GOTO  b 
L  =L  1  /  2 

1C  IFtCOCE .LT .MATIL ) )  GOTO  1 
IFICOC:  .CT.MATID)  GOTO  2 
LCCATS=L 
N  ET  L  R  N 

1  1FIL.E0.L1)  GOTO  i 
tl*l 

L=IL3»L )/2 
IFU.ED.L1)  L=L-1 
GCTL  ID 


1NFC056C 
INFCG57C 
INFC058C 
INF0059C 
iNFGOtOC 
INFG061C 
INFCC82C 
INFG063C 
INFGC64C 
INFC065C 
INFC066C 
1 nF  CO  b7C 
I  NF  C066C 
lkC, CENTER INF0069C 
1NFC0  70C 
INFCC71C 
INF00  72C 
INFCC73C 
1NFC074C 
1NFCC75C 
INFCO  7bC 
INFC0  77C 
INFCO 76C 
INFUG79C 
INFCC8GC 
INFD061C 
INFGC62C 
1NF0063C 
INFC064C 
1NF0085C 
1 nF  G0  86C 
1NFC087C 
INFC088C 
1NFC089C 
I nF  C0900 
INRG091C 
INFGG92C 
1NFG093C 
INFC0940 
INFGC95C 
1NFCG9&C 
I  NF  C09  7C 
I NF  CC9tC 
1  Nc  0G99C 
INF U OOC 
InFCICIC 
InFu102C 
INF 11C3C 
INU1  G4C 
If.Ul  05C 
I  N=  CbC 
1N-C107C 
INFC10CC 
I NF  C 1 G9C 
I NF  d IOC 
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lF(L.EQ.LO)  GCTC  t> 

. INF  Cl 11( 

LO  s  L 

1KFC112C 

LMllUJ/2 

1RFG1 13C 

ifu.es.lo)  l*l*i 

1KFG11«i( 

GCTC  ID 

IKF0115C 

IKFG1 16( 

CCDE  OGESNM  EXIT 

IKFGinC 

lCC  A  T%  =  $999 

1RFG116C 

RETIRN 

1KFC119C 

Ef.O 

1NF0120C 

oonoonooo 


F  ILE :  FCLLPREC  FCF TRAN  A 
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C  t  «««««€£«  5* *4$ $ $$$$«$«$« $5$ 

follpreo  FCRTRAN 


FCLLPREC  PREPARES  ThE  FOLLOWERS  l  pRECECESSCRS  TaELES 
1NPLT  FILES  1  «  9BAL1ST  (SORTEO  EY  -FRCM-) 

2  *  99ALTO  (SORTED  EY  "TO*) 

CLTFUT  FILES  3  =  9BFOlL  (FOLLOWING  ACTIVITIES! 

4  =  3BPR ED  (PREDECESSOR  ACTIVITIES) 

7  =  BENE T  (ACT.  ,NP,PPCSITICN,NF .FPCSITION) 


INTEGER  FRCM(3000,3),T0(3000»3) »CC  DE 

INTEGER  FOLL (lOOOC) ,PRED( lOOOO ) ,NETI NF ( 3000, 4) 

INTEGER  TEMP ( 10003 ),NETEMP( 3000,3 ),NPCST,NPGSP,NPCSF,NFROM,NTC 

DO  £  I=1,1CCC0 

REACH,  ICO,  END  =9)  (FR  OK  I  ,  J )  ,  J  =  1 , 3 1 
ICO  FORMA T (  14, IX, 15. 11,15) 

6  CCNT1NJE 
9  LENCTH=I-1 

RE AC (2, 100  I  ((TG(X, J),J=1, 3 ),K=1, LENGTH) 

Jl  =  l 
NPC  ST  =  3 
IFLAGO 
NPCSP*0 
NFRChO 

OC  10  1=2, LENGTH 

IF(FRCM(I,2}.NE.FRCM(I-1,2!)  GOTO  2 
GOTO  13 
22  1 FL AG  =  1 

C  NEW  SET  OF  ACTIVITIES,  STARTlNC  WITH  A  NEW  •  I» 

2  CC0E  =  FRCm(j1 ,21 
NFRCM=NFRQM-»1 

NETEHP(NFRCM,1)=CjOE 

C  FINE  THE  PREDECESSORS  OF  CLCE  (ACTIVITIES  THAT  END  WITH  •CODE*) 

CALL  SEARCH (TO, CODE, 3 .LCCATN ,LENGTh) 

C  LCCATN  :  FIRST  CCCORANCE  OF  CGDE .  IF  CCCE  CLESN’T  EXIST  L0CATN=9599 
IF (LOCATN.NE  .9999)  GOTO  44 
NPT  =0 
GCTC  55 

C  STCRE  ThE  SET  OF  PREDECESSORS  (TEHFCRARY  ARRAYS  ,S  OR  TED  EY  "FROM") 

C  A  RECORD  FOR  EACH  SET  OF  ACTIVITIES  WHICR  Rl  SSL  SS  ThE  SAME  •  I » . 

44  '.T=  I^NPOST-lOCaTN 

GO  4  n*=LOCATN, LENGTH 

IF( TOIKK ,3) .NE.CGOE )  GOTO  5 

4  TEMF  (KK-»NT  )«TC(KK  ,1) 

5  NPT =KK-LCCATN 

55  NETCMP(NFRCM  ,3)  =  NPCST 
NPCST=NFOST-»NPT 


FCLG001 

FCLC002 

FCL0003* 

FCLC004* 

FCL0005' 

FCLCOOtot 

FCLC007: 

FCLCOOBt 

FCL0009< 

FCLG010I 

fllooii. 

FCLC012I 
FCLC0131 
F  CL  CO  14( 
FClCO  15( 
F  Cl  00  16» 
fel:oi7( 
FCLG0 18( 
FClCO 19i 
FCLC020( 
FCLC02K 
FCLC022( 
FCLCO  2  3( 
FClCC24( 
FELC025C 
FCLC026C 
FCLC027C 
FCLCG26C 
FCLG029C 
FClCO 30C 
FCLC031C 
FELC032C 
FLLC033C 
FCLC034C 
FCLCC35C 
F0LGO3fcC 
FCLC037C 
FCLC038C 
FCLC039C 
FELCC40C 
FCLCC41C 
fcl:c42c 
FClCC  43C 
FCLGC44C 
FClEC45C 
FllCC  4tC 
FCLvC47C 
FCLCC4EC 
FCLvC49C 
fll :c500 
fcl:c5ic 
F  Cl  1C 52C 
F  Cl  vG  530 
FLl vC54C 
FCLCC55C 
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nEUMP(NFRCM,2>  *NPT 
Jl«  1 

10  CCN71NUE 

hflTE  THE  LAST  -SET*  s 
lF(lFLAC.EC.O)  GOTO  22 
IFLAG=C 

PRINT  s.'FIMShEO  IDENTIFYING  SET  OF  PREDECESSORS 
CCNSTRLCT  THE  FF.EOE  cessqrs  file: 


NF  ROM  =  1 

DC  tO  1=1 , LENGTh 

IFCFRCNi  1 ,2)  .NE  .N£TEHP(NFR0M,1)  )NFRCH=NFROM-»  1 
NFT=NETEHP(NFPCM,2) 

NFCST=NETEHP(NFRCH,3) 

NET  INF (  1.4 )=NPT 
NET  INF  C  1 ,3 ) =NPOSP 
DO  tl  J=1,NPT 

tl  PREC  (NPLSP^JMTE.MPINPCST  +  J) 
tC  sFCSP*NPCSP+NPT 

PRINT  *, 'FINISHED  PREDECESSORS  FILE' 

Jl  *1 
NFL  ST  =  0 
NFC  SF  =  0 
NTG*0 

DC  110  1=2, LENGTh 
1 F ( TO  ( I  ,3).NE  .  TO ( I - 1 , 3 )  I  GOTO  12 
GCTC  110 
122  1 Fl  AG  =  1 
12  NTO=NTO-»1 

CCDE  =  TO (01,3) 

NETEMPlNTO.l J=CODE 

FIND  THE  FOLLOWERS  OF  ACTIVITIES  WHICH  END  WITH  •]•. 
CALL  S-AFCHIFRCH.CCDE  ,2, LCiCATn, LENGTH) 
IFUOCATN.NE  .9999)  GOTO  144 
NFTO 
GCTC  155 

STORE  SET  CF  FOLLOWERS  WHICH  END  WITH  •  1  • 

144  NT=1*N°CST-LCCATN 

DC  14  KK=LCCATN .LENGTH 
1F(FRCH(NK,2).n£ .CODE  )  GOTO  15 

14  TE*r(K*«NT)«FRCKCKN,l) 

15  NFT*KN-LCCaTN 


155  NETEMP ( NT0.3  )=NPCST 
NETEHP(NTC)  ,2)  =NF  T 
NFLST=.NPCST-»NFT 
J 1  =  I 

11C  CONTINUE 

wFITE  THE  "LAST"  SET 
IF ( 1FlAC.EC  .0)  GOTO  122 
LENTO=NTO 

PF1HT  'FINISHED  IDENTIFICATION  OF 
CONSTRUCT  THE  FClLCwERS  file 


FCLC056( 
FCLC057C 
FLL0G58( 
FCLG059C 
FCtCOtOC 
FCL0061C 
FCLG062C 
FOLOO630 
FCcOC  64t 
FCL0065C 
FClC066C 
FClCG67w 
FCLG068C 
FCLC069C 
FCLCO  70C 
FCLC071C 
FCLG0  72C 
FClCO 73C 
FCLC0  74C 
FClC075l 
FCLC0  76C 
FCLCC77C 
F0LCC78C 
FCLGG79C 
FCLC080C 
FCLG081C 
FtLcee2c 
F0LCC83C 
FCLC084C 
FCLC0e5C 
FClCCdfcC 
FCLCC67C 
FCLGC88C 
FCLC089C 
FCL0090C 
FCLC091C 
FEL0092C 
FCLC0930 
FClC094C 
FCLC095C 
F  CL  uG9oC 
FCLCG97C 
F  LL  CG9bC 
FCLC099C 
FOlCICOv 
FCL0101C 
FCLC102C 
F  CL  Cl  030 
F0LC1C4C 
F0LG1C5C 
FOLClObC 
FCLC107C 
FLLC106C 

SETS  LF  FCilC*FRS'  F0LC1O9C 

FOlCI IOC 


A  :  FCXLPRtO  FCFTRAN  A 
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FClCIIK 

OC  IbO  1=1, LENGTH  FLLC112C 

CALL  SEAFCMNETEMP,FR3M(  1  ,3)  ,1  ,NTC,LEMC  )  FCL0113C 

NFT  =NET£MPlNTO»2)  FClGIIAC 

NPCST=NETEMPtNTO,3)  FCLC115C 

NET  INF (1,2) =NF T  FCLCllbC 

NETINFC  I,1)=NPCSF  FCLC1 17C 

OC  lol  J=1 ,NFT  FClCI lbC 

ltl  FCLL(NP0SF-*J)=TEMP{NPCST*J>  FCL0119C 

ItO  NPOSF=NPCSF+NFT  FCLC120C 

PRINT  =>,  'FINISHED  PROCESSING.  WRITING  OUTPUT  FILES*  FCLC121C 

HP  1 TE ( 3 , 2  OC  )  POLL  FCL0122C 

hRIT£(A,20C)  PREO  FCLG123C 

HR  I TE ( 7 , 30C  )  (I ,  (NETINFII ,J) ,J  =  1, A) ,  1=1, LENGTH)  FGLQ12AC 

200  FCRMATI2CIA)  FCtC125C 

2 CO  FCRMATt I5.AI5)  FCLG126C 

STOP  FCLC127C 

END  FU0128C 

FCLCI 29C 

SUBROUTINE  SE  ARCH  ( MAT  .CODE  .COLUMN,  LC  C  *TN  ,LcNGT  H  )  FUC130C 

. . . . - . . . FClCI  31C 

this  sue  searches  for  -code*  in  the  ccllmn  "column-  cf  matrix  fclci32C 

•MAT"  HHERE  TmE  MATRIX  IS  FRESCRTEO  BY  ASCENDING  CRDER  LF  "C0LUMN"FCLC1 33C 

- - - - - - - - - — -------FClCI  3AC 

INTEGER  MATI3000, 3), LENGTH, LOCaTN, CODE, COLUMN  FLlC135C 

FCLC13bC 


L1  =  LENGTH  FClC137C 

LC*  1  FUC138C 

IFICOCE .GT.MATIL1, COLUMN) )  GOTO  to  F ClCI 39C 

I  Ft  CODE  .1 T .MAT (  1, COLUMN))  GOTO  to  FUOIAOC 

L  =L  ENG  TH/2  FUC1A1C 

10  1FK0CE. IT. MATtL, COLUMN)  )  GOTO  1  FClC1A2C 

lF(COOE.GT.MATlL.CQLUMN))  GOTO  2  FClCI A3C 

lcc  ATN =l  FUC1AAC 

GOTO  3  F  CtCl A5C 

1  1F1L.E3.L1)  GOTO  b  FCLC1A6C 

L 1*L  FCLC1A7C 

L=(L0*Ll)/2  FClClASO 


IFtL.E3.Lll  L=L-1 
GOTO  10 

2  IFtL.E3.L0)  GOTO  o 
LC  =  L 

L=I10*l1  )/Z 
IFU.E3.L0)  L  =L ♦  1 
GOTO  10 

3  N=L-1 

GC  A  1  =  1  ,  N 

IF IMAT(L-I .COLUMN) .NE  .CODE)  GOTO  5 
A  CONTINUE 
5  LCCATN=L-I*i 

LCCATN  IS  THE  FIRST  JCCUkANCE  LF  "CuCE" 
RETURN 

"CCDE"  ODES  NOT  EXIST  IN  COLUMN 
t  LCCATN=SS9S 
RETURN 


F0LC1 A90 
FClCI 500 
F  Cl  C 1 510 
FClCI 52C 
FOL  Cl  530 
FClC15<»C 
FCLC1550 
FClCI 5fc0 
FUC157C 
F  Cl  01 5bC 
FClCI 590 
FCLCI 600 
FClCIcIO 
FClCI t20 
FUG103C 
FClCI tonC 
F  Cl Clb5C 


I 

I 
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C«e<$ 

C 

c 

c 

c 

c 

c 

c 

c 

C 


c 


2C1 

S51 

2C2 

55C 

Stl 

12C 

1 

C 

c 


2 

C 

C 

C 

1C 


3 

C 


4 


RANKM  FORTRAN 


R  AN  KM  READS  FILES  BEF3LL,  EBPKEO,  EE NE T (CUTP LT S  FROM  FOLLPREC) 
AND  GIVE  SEQUENTIAL  RANKS  TC  EACH  ACTIVITIES  6Y  RANKING  FORWARD 
THFCUGH  THE  NETWORK.  ALSO,  CYCLES  ARE  IDENTIFIED  BY  COMPARING 
FORWARD  RANKS  WITH  BACKWARD  RANKINGS. 


INTEGER  nCDE  S ( 25  JO  ,2  ) 

INTEGER  FCLL(100JO),nF(250G),  FPtSC250C) 

INTEGER  PRCDUOOJOI  ,NP(2500  I  ,  PPCSI  250G) 

INTEGER  NA.NNCOE,  NSANK,  NFLAC,  NPCS1T, 

READ  ( 1 ,951 ,EN0=201)  POLL 
READ  (21 ,951 ,EN3=202  )  PR  EC 
FORMAT (2014  ) 

OC  95 J  MA*1,1C003 

RE  AO (9 ,12C ,ENC  =  1 1  (N30ES (NA , J) , J*1 , 2  ) 

RE  AD  (  2  ,5t)  1  ,  END  *  i  I  FPOS(NA)  ,  NF  (  N  A  )  ,  FPCS(NA),  NP(NA) 
FLFMaT ( 5  X , 4 1 5  ) 

FORMAT ( 4  X  ,  2  I  6 ) 

NNCDE  *  NA-1 

s**RANKlNG  FORWARD  STARTS  wlTH  UNPRECECED  ACTIVITIES 
NR  ANK  *  1 


CO  2  NA  =  1, NNCDE 
IF (NP(NA).NE.O)  GOTO  2 
RANKF l N A  1 *NR  ANK 
RR ANK (NFANK  )  =N A 
NR  ANK  *NF  ANK  ♦  1 
COM  I.NLE 

RANK  FORWARD 

NFLAC*: 

CC  4  NA*1,NNLDE 

IF (RANKF (NAI.GT.3J  GOTO  4 

NPf  ED  =  NF  (NA  ) 

NPCS IT  *FPCS(NA) 

CO  3  NPRC =1 ,N°REC 

IF (RANKF (FRED (NrGSIT*NFFD> ) .EC.C) 


RANOCOli 
R  ANG002( 
RAN00031 
RANC0041 
RANG005( 
R ANCOOfct 
R  ANC0071 
RANCOOfai 
R  ANC0091 
RANGOlOi 
rasgou* 
R ANCO 121 
RANGG13C 

,  R  ANK  P  (  25CC  )  RANG014C 

,  RANKF(  25 OG), FRANK  (250C)RANC015( 
NPRED,  NPRD  R ANCO 16( 

R  AN  GO  1 7( 
RANC0I6C 
RAN0019C 
R  ANGC20C 
RANC021C 
R  AN  CO  22( 
RANCC23C 
R ANCG24C 
RANG025C 
R  AN  GC  2bC 
RANC027C 
RANG026C 
R ANG029C 
RAN GO  300 
R ANC031C 
R  ANG032C 
RANC033C 
RANC034C 
RAN„035C 
R  ANCO  3t>C 
RANG037C 
R  AN  CO  3EC 
RANC039C 
R  AN  GO  400 
R  AN  GC  4 1 C 
R  ANCO  42C 
R  AN  GO  430 
RANCC44C 

CO  T 0  4  R  ANGC  45C 


NFLAG*1 

TmCRE  ARE  additional  rankings 

R  A  t.K  F  (  St  )  =NR  ANK 
FRANK l NPANK  )  *N A 
Nc ASK iNFANR ♦ 1 

COM  ISLE 

IF (NFLAC.LC.il  GOTO  lj 

NF  L  AG  * i  IFF  THERO  WERE  ANY  NEK  RANK  I  KG  CORING  ThE  LAST  LLGF. 
WF  I  T  C  (  3,951)  KFan* 


R AS  CO  4bC 
P  ASv.047C 
R  AS  CC 4tC 
R  AN :c  49C 
R ANG050C 
kANvG5.w 
R  AN  CO 52  G 
R  AN  CC  53G 
R  ANCO  5<iC 
R  AN  CO  55C 


C 


E:  ran km 


FORTRAN  A 


VK/SF  CMS  RELEASE  3.1.E  851112,  CFC  -  U.C.  BERKELEY 


START  RANKING  BACKWARD 

RANCOSbC 

RAN0057C 

NR ANK*-1 

R ANC056C 

CO  22  na=i,NNCDE 

RAN0059C 

IF (NF(NA).NE.O)  GOTO  22 

RANCCfcOC 

RANKB(NA)=NRANK 

R ANC061C 

NR ANK=NRANK"1 

RANCC62C 

22 

CONT 1NCE 

RANCC63C 

10 

NFC AG=C 

RANCC64C 

CO  44  NA=1,NN0DC 

R  ANCO b5C 

IF (RaNKE(NA ) .LT.j)  GOTO  44 

RANCC66C 

NPFEC=NF (NA) 

RANC067C 

NPCSIT  SF  PC  S ( NA  ) 

R ANCObfiC 

CO  33  NF  RD  =  1 »N°RED 

R  ANC0b9C 

33 

IF (RANKE (FCLL (NPCS1T+NPRD) ) .EG.O)  GOTO  44 

RANC070C 

nflag  =  i 

R ANCO  71C 

RANKBINAJsNRANK 

RANC072C 

NR  ANK  =  NR ANK"i 

R ANC073C 

44 

CCNT I\CE 

RANC074C 

IF (NFlAG.EG.1)  GOTO  11C 

RANCC75C 

IRANK*Nt  ANK.Sl-l  ) 

R  ANCO  7bC 

CO  11  NA  =  1 ,NNuDE 

RANCC77C 

IF (RANKt(NA).EO.O)  GOTO  12 

R ANCO  78C 

FANKBtNA  )*F ANKE (NA  )♦ I RANK 

RANC0790 

12 

WR1TE(7,1C1)  NA,  RANKF(NA) ,RANKB(NA )  , (NODES (NA,J), J*l,2) 

RANcceoc 

IF  (RANKF(f.A).EQ.Q.AND.RANKB(NAl.EC.C)  THEN 

R ANCO01C 

MR  1 TE (t , 1  til )  NA,  RANKF(NA ), RANKE  t  NA  )  ,  (  NO  CE  S  (N  A  ,  J  )  ,  J  *  1  ,2) 

RANC0e2C 

MRlTE(t ,111) 

RAN 00830 

wRITE(7,lll  ) 

RANC064C 

ENOIF 

R ANC085C 

11 

CONTINUE 

RANCOSbC 

RANC087C 

11 

FCFmaT  (  •  CYCLE  OCCURRED  • ) 

RAN00880 

Cl 

F0FmaT(>:10,5X,2I5) 

R  AN  30  890 

STCP 

RANC090C 

ENC 

R  AN 009 10 

o  o  o  o  o  r*  r> 


F  lLE:  FTfiAN 


FORTRAN  A 


VM/SP  OS  RELEASE  3.1.E  851112,  CFC  -  U.C.  BERKELEY 


•.vssfw 


FTRAN  FORTRAN 


FTRAN  REAOS  NODES  AND  COEFFICIENTS  OF  F  L  Cfc-T  RAN  SF  ER  AND  CREATES 
FILE  BSTFC.  E6TRC  KILL  BE  INPUT  TO  CTRAN  LATER, 


,  A  A  ^  J 

*  v  r  r  v*, 


k  A  A  A  A  A  AAA  A  AAA  AA  A  A  A  A  W 
fYVYVvvvY-/,'"<‘VyVirvvYi 


c  RE  AC  INPUT  FROM  TERMINAL 

C 

*FITE(6,*1  '  ' 


FlROOOli 
F  TR  C002( 
F  TR0003C 
FTRCOOH( 
FTR0005C 
FTRCCObt 
F  TR0007C 
F  TRC008C 
F 1RG009C 
FTRC010C 
FTRC011C 
FTRC012C 
F  TROO  i3C 


1  NRITECS,*)  '  ENTER  NODE  and  COEFFICIENT  of  FLOn-TRANSFER  '  FTR0C1<«C 

*RITE(6,*)  *  (  E.G.  303,0.5  FOR  NODE  303  AND  COEFFICIENT  0.5  )•  FTR0C15C 
WRITS<6,*>  •  END  OF  0*TA;  TYPE  RETURN  ONLY.*  FTROOlbC 

DC  10  1=1, ICO  FTRC017C 

REACU.*,END*15>  NCjDE.CCEF  FTRC018C 

IF(N3CE.lT.0.CR.CCEF.GT.1.0R.CCEF.LT.C)  ThEN  FTR00190 

WRITEU,*)  *  DATA  ERRCR..  PLEASE  ENTER  AGAIN.*  FTRC020C 

GC  TC  l  FTR0021C 

END1F  FTRCC220 

WFlUtl,  ICO)  NODE,  CCEF  FTR0023C 


1C  CONTINUE  F  TR0D29C 

15  WRITE ( 6  ,<  )  '  END  JF  DATA.  THANK  YOU...*  F  TRC025C 

ICO  FCRFAT(  I*,,2X,F4.2I  FTRG0260 

STOP  FTRCC27C 

End  F  TRCC  2b0 


V  'iV-V Vi/» „i  Ti'  \  fi  u  u u iita » 


F1LC:  CTRAN 


fcftran  a 
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C 

C  CTRAN  FORTRAN 

C  . - 

C  CTRAN  READS  FILES  BBFOLL.  BBPRED,  BPnET,  BBALlST,  BBTRC, 

C  AND  SETS  THE  TRANSFER  COEFFICIENTS  ON  ThE  FOLLOWERS  AND 

C  PREDECESSORS  NODE S ( CT SANF ,C T RANP )  FCR  EACH  ACTIVITIES. 

C  OL'TFUT  FILE  IS  EB  TRAN  . 

C 


0  tca$vvsa aaaa aaaaacca vvaaaaaaataavvvacav ataaaiaa 


««» 


CTR 00 01 
C1RCC02 
CTRC003 
CTROOOA 
CTRC005 
CTRC006 
CTR00071 
0*0008 
CTRC009 
CTROOlOi 


C 


c 


INTEGER  FTEV(50),ST(1D),CM(10),FCLL ( 1COCO I ,F RE  0 1 1 COOC ) 

CTRGOlli 

CTR00l2i 

CTRC013( 

INTEGER  NF ( 2500 )  ,FFOS (2500) ,NF C 250C I  ,FPES ( 2* CO ) 

CTRCOlAi 

INTEGER  ST  ART  (2500)  .COMP  (2500 1  ,M  10)  ,  IT  YPE  (2  500  ) 

CTROO  I5i 

DImEN  SIGN  CTRANP(1CCOO),CTR  ANFdOCCO  )  ,  A  L  F  A  ( 5  C )  .  A  V  ( 1  C  ) 

C  TRCO  lb> 

READ  THE  NETWORK  INFORMATION 

CTRC0171 
CTROO 16< 

NACO 

CTR0019( 

REAC(2,1C0)FCLL 

CTRG0201 

REAE( 12  ,10C  JPREC 

CTR202K 

ICO 

FCRFAT (2CIA ) 

CTR  0C22t 

DC  151  I«1,50CC 

CTRCG23C 

REAE  (3,2C0,ENL=152)FPCS( 1 ),NF ( I  ).FFES(1  ),NP( 1) 

CTRc02Ai 

2CC 

FCRHAT ( 5A  ,A15 ) 

CTR:c25( 

151 

REAE (A,300,ENC=152)START( I) ,CCFF(I), ITYFE( I) 

CTR0026C 

152 

NNOEE  S=  1~1 

CTRC027C 

PRINT  R  » •NLHt E R  CF  NODES =•, NNOEE S 

CTR  00281 

3CO 

FCRHAT(5A,15,1A,15,9A,11) 

CTR0G29C 

DC  161  1=1,1000 

CTRC03C( 

ltl 

REAC (  l,AC0,ENC*lt2)FTEV( I ) , ALF  A ( I ) 

C  TRC031C 

lt2 

NC=  1-1 

CTRoO 32C 

AGO 

FCRNAT ( IA,2A,FA.2) 

CTR0033C 

PRINT  *,'NtN  CF  TRANSFER  IS  *,NC 

CTRCC3AC 

DC  El  1*1,1C0CC 

CTR0035C 

CTRCC36C 

CTRANPl 1)=1. 

CTRC037C 

61 

CTRANF( 1 )=i. 

CTRC036C 

DC  A 2  K=1,NC 

CTRC039C 

DC  A3  I  =  1  ,N)  CDE  S 

CTFCCAOC 

IF (COwD (  I ) .NE .FTEV(N) )C0  TL  A3 

CTRC0A1C 

if  ( i type ( i ) ,ec .9)  go  to  as 

CTRCCA2C 

IF  ( 1  TYPE ( 1 ) .EC .2)  GO  TC  A3 

CTRCCA3C 

IF  (ITYFE(1).EC.7)  GO  TO  Aj 

CTR  v  C  A  A  C 

IS=FPES< I)  +  l 

C1RCCA5C 

1 E  =  I  S N F  ( 1  )-l 

CTRwC  AtC 

DC  AA  L  =  1  S , I E 

CTROOA7C 

AA 

CTRANF(L)*ALFA(K  ) 

CTR  k,0  A6C 

A3 

CLNTINJE 

CTRCCA9C 

35 

CCNTINJE 

CTR  JC50C 

DC  A 5  I  =  1,NNC0ES 

ctr:o5k 

IF  (  START ( 1 ) .NE.F TEV(n ) )G0  TO  A5 

C  TR  CO  520 

1  F (  JTYPE( I) .Ew.9)  GC  TO  a5 

CTR  CC  530 

IF  ( IT TPE  ( I  )  .EC. 2)  CO  TO  A5 

CTRC05AC 

IF  (  1  T  VP  E I  I  )  .EC. 7)  GO  TO  A5 

CTRC055C 

1 


# 


IE:  CTRan 


fcftrak  a 
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I  S*FPCS  1 1  >-»l 

CTR0C560 

IE  =  1S*NPU)-1 

CTRC0570 

OC  46  L  *  I S  ,  IE 

CTR00580 

46 

CTRANFtL)=ALFAtK) 

C  TR00590 

45 

CCM  INuE 

CTRG060Q 

42 

CCNTINUE 

C  TRC0  610 

CTRCC620 

wF.I  TC  17 ,211  JCTRANF  .CTRANP 

CTRC0630 

211 

FCRFATC2CF4.21 

CTRC064C 

CIR0065C 

STOP 

CTRCOfcbO 

EMO 

CTRC0670 

F  1 L t 5  CAPCATE  F  CF  T  P  AN  A 
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C  *  * 

C  *  CAFCATE  FCR  TRAN  * 

C  «  * 

C  *  CAF3ATE  CALCULATES  ThC  NuHEEF  CF  WLRMNG  DAYS  * 

C  *  F  R  CM  THE  PRC  JE  C  T  STARTING  DATE  TC  C  Af  AC  1 T  Y  CHANGE  GATES  $ 

C  *  * 


INTEGER  HCJLDYU20.31)  ,REP(100)  ,  YEAR  ,  SH0N.5  YS 

INTEGER  FEPCRT(103,3)  .HC.mCn.DA.YF ,SRF(10C  ) 

READ ( 1 , ICO ) YE AR 
ICC  FCRMAT l 1CX i 15 ) 

DC  195  1=1.120 

REAC(2»110MHCLDY( I , J ) » J= 1 , 3 1 1 
195  CONTINUE 
110  FCRMAT (3112) 

READ ( 9 . IRQ  JSMCN , S3 AY , SYR 
1 AO  FCRMA  T ( 1CX . 3 1 5 ) 

wRITE (6 ,13C )  SM0N.SDAT.SYR-19C0 

120  FCR MAT ( / , •  ENTER  DATES  WHEN  SHOP  CAPACITIES  APE  EFFECTIVE  ', 
•*  '(  MM.DD.YY  )', 

•»  /.'  FIRST  EFFECTIVITY  DATE  IS  THE  STARTING  CATE  CF  PROJECT; 

♦  313,/,*  PLEASE  ENTER  ALL  CATES  AFTER  THIS  TIME  wmEN  ShLP 
•»  'CAPACITIES  CHANGE.'  ,/, 

♦  '  IF  Eng  CF  DATA,  PLEASE  PRESS  RETURN  CNLY.') 

I  SYMISYF-YEAR)*12*SM3N 
REP ( 1  )  *  C 
K  =  1 

DC  200  1=2.100 

RE AC (5,*, ENG =300 IMCN.DA.YR 

DA=CA-1 

YR  =  YR-»19C0 

WD  =  C 

I YR  * ( YR-YEAF )$12-MCN 
IF  < 1YR.LT. ISYRIGOTC  050 
IFUYP.EC.ISYRIGCTC  583 
DC  A 3C  MI  =  ISYR,1YR 
IF (MI .EC . 1SYR  IGQTO  A 1 3 
1F(MI .Et.IYF  ) GO  TC  A20 
DC  AAC  Mf=l,31 
«C  =  WD-*hCLDY  IMl.MK  ) 

AaC  CCMINjE 
GOT C  A  3C 
A 2 C  LM=CA 

DC  A  3  C  ML  =  1 »LM 
wC  =  WC  +  hClDY(MI  ,ml  ) 

A 30  CONTINUE 
GCTC  A 3 C 

A1C  DC  A5C  M j  =  S C A Y .31 
WCrHD'HCLDY (Ml . M  J ) 

A 50  CCNTINJE 


CAPC001 

CAPC002 

CAPC003 

CAPCOOA 

CAP0005 

CAPC006 

CAPC0C7 

CAPCOOb 

CAP0009 

C  APCG  lu( 

CaPCOH. 

CAPC0121 

CAPG013* 

C  APCOlAi 

CAPG0151 

C  APCO lfc( 

CAPCO  17t 

CAPC018C 

C  APCO 19( 

C  APC020( 

C  APC02K 

C  AP0022( 

CAPC023C 

CAP002AE 

C AP0025E 

C  APC026C 

CAP0C27C 

CAPC028C 

CAPC029C 

C AP0030C 

CAP0031C 

CAPCC32C 

C APC033C 

CAPC03AC 

CAP0035C 

CAPC03t>C 

CAPG037C 

CAPCC36C 

CAP0039C 

CAPGOAOC 

CAP00A1C 

CAPGCA2C 

C APCGA3C 

CAPCCAAC 

CAPCC A5C 

CAPi^C  AbC 

C APCGA7C 

C  A P  vC  A  o C 

C APC0a9C 

CAPC050C 

CAPCC51C 

CAPC052C 

C AP0053C 

C  APGC  5Ai» 

C  AP^C  55C 


L  E  S  CAPLAT£  FCFTRAN 
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ACO  CCNTINUE 
GCTC  <*70 
5fc0  LK  =  C  A 

IF(LK.LT.SCAY)G0TC  653 
DC  A60  L  I*SCAY,LK 
wC=RD+HCL0Y( IYR.LI) 

AtC  CONTINUE 
A  7C  K*K-»1 

REP(K)=WC 
SRP  t  K  •  1  )  *MC.N 
SRP  (K  ,2  )=0A*1 
SRP  IK ,3  )=YR-19C0 
GCTC  230 

650  wRI TE  IS  , 18C  ) 
iec  f crm a t ( •  os  the  input  date 
♦  *  CATE,  PLS  enter  AGAIN.*) 
2C0  CCNTINUE 

3C0  WRITE (3.15C )REP 
15C  FORMAT { 2C I A ) 


DC  600  I  *  1 , K 
IFII.E2.1)  THEN 
1  $ Y  R  =  S YR “19CG 

wFITStS.ECl)  sm:n,sday,  ISYR 
GC  TG  F3C 
end  if 

wFITE(9,e0l)(SRF(I,J)tJ=l,3) 
6C1  FCRMATI312) 

SCO  CCNTINUE 
STCF 
ENC 


IS  6EFCRE  STARTING*, 


C  APOC  56( 
CAP0057( 
C APCC58( 
CAPC059C 
CAP0060C 
CAP0061C 
CAPG062C 
CAPC063( 
C APC06AC 
CAPC065C 
C AP0Cfc6( 
CAPCC67( 
C  APOCbBt 
CAP0069C 
CAPC0  7CC 
CAPC071C 
CAPC0  72C 
C  APCO  73( 
CAP007AC 
C  APC075C 
C APGG  7fc( 
CAP0077C 
CAPC0  76C 
CAP3C  79( 
CAPCCeoC 
CAPcoeic 
CAPC0B2V 
CAPC0B3C 
CAP0C6AC 
C  AP0C85C 
CAP0086C 
C  APC067C 
CAPC0B6C 


^  m  k'- 
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t  T  v  ■»  V  V  C  Cvvv^v^Cv  v  i  v  vOO  vt  ^vvTvvitv^vvvvv  t  V  V 

SHCPCAP  FORTRAN 


SHOFCAP  PEAPS  SHOP  NUMBER#  NUMBER  OF  CAPACITY  CHANGE  ANC  CAPACITY 
IMAN-HCLR)  INTERACTIVELY,  AND  CREATES  FILE  6BECAP. 

SEECAP  HILL  6E  INPUT  T3  THE  NEXT  STEP  PFECAP. 


<cc 


f--*-  A  *  A  *  A  A  A  A  A  A  A  .S 

*i  VVWVVVVTWVV-l*W 


:Ovv! 


rCv vy v  vv 


REAC  INPLT  FROM  TERMINAL 
wR1TE(6,<)  '  • 

1  HR  IT  E ( 6 ,  e  )  •  ENTER  SHOP,  NUMBER  OF  CAP.  CHANGE  ANC  CAPACITY.' 
mR1TE(6,s)  *  t  E.G.  31,4,100  FOR  SHCF  21,  <t  Th  CHANGE,  ICC  KH  )' 
WRITE46,*)  •  (  IF  NO  CAP.  BCUNt  FCR  ALL  SHOPS,  ENTER  0,C,9999  )• 
HRITEIS,*)  '  GN  END  OF  DATA,  TYPE  RETURN  ONLY.' 

CC  10  1=1,100 

REAC(6,=»,END=15)  ISHOP.NUM.CAP 

IF  t I  SHOP  .LT  .C  .OR .NUM.LT .C .OR .CAP. I  T .0 )  THE  N 

WRITE!*,*)  *  DATA  ERROR..  PlEASE  ENTER  AGAIN.' 

GO  TC  1 
END1F 

HP  I TE ( 1 , ICO  )  ISHCP.NUM.CAP 

1F(  ISFGP.EG.C.ANC.NJM.EG.O.AND.CAF  .EC.9999  )  GO  1C  15 
1C  CONTINUE 

15  hP1TE(6,*)  '  END  OP  DATA.  THANK  YOU...' 

100  FORMAT!  I3,2X,I3,2X,F3.2) 

STOP 

END 


SHCOOOli 

SHGC002' 

ShL0003i 

ShCGC04i 

SHC0005( 

SFOCOObC 

SHjGOO  7C 

SH0C006C 

SHC0009C 

ShGCOlOC 

ShGOOllC 

SH0C012C 

SHL0013C 

SH00C14C 

SHG0015C 

SH0G016C 

SHOCOITC 

SHG0018C 

SHCCC190 

SH^OC  20C 

ShC'G021C 

SHG0C220 

SHCC023C 

SHG0C240 

SHCCC25C 

SH0002O0 

SHG0027C 

ShCCO  280 

SHCCC29C 

SHCCO  300 


oooooouoo 


FILE:  PFECAP  F  OF  T  R  AN  A  VK/SF  CMS  FELEAS6  3.1.E  851112,  CFG  -  U.C.  BERKELEY 


c 

c 

PREC001 

FRE0002 

c 

FRECAP  FORTRAN 

PRE  0003 

c 

PREGOOV 

c 

PPECAP  RE AC  tSER-DEFINCD  CAPACITY  FILE  CAlLEC  BE  fc  CAP  ,  ANC 

PREC005. 

c 

MATCH  THE  SHOP  10.  TO  THE  PROGRAM-DEFINED  SEQUENCE  CCC'E,  THEN 

PRECOOb' 

c 

SETS  THE  CORRESPONDING  CAPACITY  IN  THE  FILE  EfcVtAF  DATA. 

PREC007' 

c 

NCHAN  =  NUMEER  OF  CAPACITY  CHANGE 

PRECOOb 

c 

c 

NSHCP  *  NUMEER  OF  SHOPS 

PRECC09. 

PRECOlOi 

C 

PREC01H 

PREC012i 

DIMENSION  CAPE 30, 250) ,IZ( 10 , 20 ) ,NSE 0  l  25C )  ,KSH3Pt2  50) 

PRE  CO  131 

INTEGER  I CHD ( 200 ) 

FRECClAt 
PKEQO  15( 

REACH, ICO)  NFES.sSHOP 

FRECOlbi 

ICC 

FORMAT ( 2CX  ,  15 ) 

PREC017C 

c 

PREC018I 

c 

FINC  CUT  THC  NUMBER  OF  CAPACITY  CHANGES 

PRECC191 

I  I  =C 

PREC020E 

DC  1  1*1, 1C 

PREC02K 

REAC(2,103,CNC  =  2)  <  1 2  (1 , J ) , J  =  1 , 20 ) 

PREC022C 

1C  3 

FORMATE  2CIA ) 

PREG023C 

DC  7  J  =  1 ,2C 

F  R£CC2Ai 

1 1  =  I  I-*l 

PRE  CC  25C 

7 

1CH0E1I  )*IZ< I ,j) 

PREC02bC 

1 

CONTINUE 

PKEC027C 

2 

NUM  *1-1 

PREG026C 

DC  3  1*1,  NLM 

PREC029C 

DO  3  J=1,1C 

PRE0030C 

1FE1.EQ.1.ANC.J.E3.1)  GO  TO  3 

PRE  CO  31C 

IFC  IZlI  ,J) .EC.C)  GO  TO  A 

PRE0O32C 

«■* 

CONTINUE 

PFEC033C 

A 

NCHANM 1-1 )*20* J-l 

FR£C03<»C 

C 

PREC035C 

REAC<3,1C1)  (NSEQ(I),I=1,NRES) 

PRECC  3bC 

1C1 

FORMAT 1 2C 1  A ) 

PREC0  37C 

105 

FORMATE  It) 

PREC03BC 

c 

CAVE  SHOP  NUMBER 

PREC039C 

1M  T  =  C 

PFcCCAOC 

1 1  =  C 

PRECCA1C 

DC  5  1*1,  N RES 

PRc  CO  A2C 

FEA3E7.1C2)  JS-CP 

FRECC  <*3C 

1FEIMT.NE.NSEGE  I)  )  THEN 

PRE  C  C  A  <*  C 

1 1  *  1 1  •*  1 

PRECCA5C 

KSHCPE 1 I ) = JSMCF 

FRE  CC<*bC 

IN  IT  =  NSEQ«  I  ) 

FRECCA7C 

EN3IF 

PRE  CDArtC 

9 

continue 

PKE  CC  <t9C 

C 

INITIALIZE  CAP 

PRECC  50C 

CC  13  1*1, NCHAN 

PRtvCSIC 

CO  1C  J  =  1 , nShC3 

PRE  CC  52C 

1C 

CAF(I , J  )  *999  99  . 

PRECC5JC 

c 

PR  c  EC  5<«C 

15 

RE  AC  E A, «, END  =  99)  I  SHOP, ITER  ,CAFA 

FRE^C  55C 

file:  PRECAP  FCF.tr an  A  VM/SP  CMS  RELEASE  3.1.E  651112,  CFC 
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IF! ITER. LT.C. OR. ITER. GT.NCHAN)  THEN 

PREC056C 

wFlTEU,*)  •  *  ILLEGAL  NUMBER  OF  CHANCE  IN  BBFC  Ap .  ChECK*, ITER 

PRECG57C 

STOP 

PFEC056C 

END1F 

PREC059C 

IF C ITER . E Q .0 )  GO  TO  99 

PREG060C 

c 

MAP  THE  SHCF  CCOE 

PREOOfclC 

REWIND  7 

PRE0C62C 

DC  20  1=1,250 

PREC063C 

c 

REAO(7,1C2,ENO=29)  JSHCP 

PRECObAC 

1C2 

F3RMAT(tA, 12) 

PRE  C0b5C 

IF ( I SHOP.EQ.KSrtOPt 1 ))  THEN 

PREC066C 

c 

1PCS  =  NSEC.( 1 ) 

PRECC6  7C 

IPCS*  I 

PRECC66C 

GO  TO  22 

PRE0069C 

ENCIF 

PREC07QC 

20 

CONTINUE 

PRE0C71C 

C 

PRE0072C 

29 

WRITE<6,*)  •  *  ILLEGAL  SHOP  COCE  .  CHECK*, ISFCP 

PREG073C 

STOP 

PREC07AC 

C 

PRECG75C 

22 

CAP(ITER,1FCS)*CAPA 

PREC076C 

GC  TO  15 

PREC077C 

C 

PRE00  76C 

99 

CONTINUE 

PREC079C 

DC  25  1*1, NC H AN 

PREC060C 

25 

WRITE  (9 ,200  ICAPU  ,J)  ,  J  *  1 ,  N  SHCP  ) 

PRECC61C 

2CC 

FORMAT ( 1CFE .2  ) 

PREC082C 

DC  22  1*1, n SHOP 

PRE00e3C 

CC  20  J=1,NCHAN 

PRE008AC 

WRITE  11C.2CA)  KShGP(l)  ,1CHD(  J),CAPU,I  ) 

PREC085C 

20 

continue 

PREGOSbC 

HR I TE ( 9 ,202  )  NChan 

PREC037C 

2C  A 

F0RMAT(IA,1X,I6,1X,F8.2) 

PREGOeBC 

2C2 

FORMAT! '  *  OF  CAPACITY  CHANGE*, 15) 

PRECC69C 

C 

PREC090C 

STOP 

PRE0C91C 

END 

PREC092C 
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C  *  s 

C  *  REFOATE  FORTRAN  * 

c  *  * 

C  *  FEPOATE  CALCULATE  THE  NUMEER  CF  MGR*  Ik* G  DAYS  * 

C  <  FRCM  THE  PROJECT  STARTING  DATE  TO  REPORTING  CATES  * 

C  *  * 


INTEGER  HOLLY (12 0,31 1 , REP  1100) .YEAR, SMON.SDA Y.SYR 
INTEGER  RE  FORT (100, 3) ,W0 ,KDN ,D A , YR , S R F ( 1  CO  ,3 J 
READ(  1 ,  ICO  HEAR 
100  FCRMAT(1CX,I5) 

OG  195  1*1,120 

REaC!2,110)!hGLDY! I , J ) , J* 1, 3 1 ) 

195  CONTINUE 
110  FGRMAT (3112) 

c 

REACT  A, 1401  SMCN.SOAY, SYR 
1 AO  FORMAT (1CX,3I5) 

WRITE (5,1 3C) 

130  FORMAT!/,  IX,  'ENTER  THE  REFGRTING  CATES 
♦•(  MM.OD.YY  )',/, 

IF  END  OF  DATA,  PLEASE  PRCSS  RETURN  TWICE.') 

CC  200  1=1, 10G 
REaC!5.«,EN0*3G0)-0N,0a,YR 
REPCR T (  I  ,  1 )  =MCN 
REPORT! 1,2)*DA-1 
REPORT!  1 ,3)=YR*19J0 
N  I  *  I 

2 CO  CONTINUE 

3CC  ISYF  *  (SYR-YEAR)*12-»SM0N 
OC  50C  1*1, NI 
wC*C 

IYR*( REPORT! 1 ,3 ) -YE AR )*12 *R EPCR T ! I , 1  ) 

IF! 1YR.LT.ISYR)GGTC  650 
IF!  1YR.EQ.  ISYRJGGTO  530 
DO  AOO  M I  *  I  SYR , I YR 
IF(M1 ,EQ.ISYR)GOTG  AID 
IF(MI  .EO.IYF  )GGTC  A20 
OC  AAC  MK  *  1 , 3 1 
wC=WO*HCLDY (Ml ,  MK ) 

A  AO  CONTINUE 
GOTO  AOC 

A2C  LM  =  F  EPjRT ( 1,2) 

00  A3C  Mt*l,lM 
wC*WO'*HCLOY!M1  ,ML) 

A 30  CONTINjE 
GOTO  ADO 

A10  OC  A5C  MJ*SCAY,31 
WC*WO+hCLDY(MI ,MJ) 

A5C  CONTINUE 
ACO  CONTINUE 
GOTO  A 7 C 

5EC  LK*REPORT( 1 ,2) 


BERKELEY 


REPOOOli 

REP00021 

REPG003( 

REPOOOAi 

REP00051 

REP0006( 

REP0007I 

REPCOOfc' 

REPG0  09< 

R  EPCG  10( 

REPC01K 

REPG012i 

R  EPGO  I3v 

REPOO  14( 

REPGO  15i 

REP  CO 16( 

REPCO  17( 

R  EPOC 18i 

REPOO 19( 

REPC020( 

REPG02K 

R£P0022( 

REPC023C 

REPC02AC 

REPC025C 

R£P0G26( 

REPG027C 

REP0028C 

REPG029C 

REPG030C 

REPC031C 

REPOO 32C 

REPCO 33C 

REPC034C 

REPG035C 

REPC036C 

REPCC37C 

REPC036C 

REPC039C 

REPOCAOC 

REPC0A1C 

RfcPCCA2C 

REP0GA30 

REPCC44C 

REPC0A5C 

REPCOAbC 

REPG047C 

KEPCOAftC 

REPCC49C 

REPCO  500 

REPGG51C 

REPCG52C 

REPC0530 

REPCO  5<*C 

REPCG55C 
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1FUK.LT. SCAYJGOTD  650 
DC  *6 C  LI* STAY ,LK 
WC=KO-*hCLDY(  1YR.L1  ) 

460  CCMlNUE 
470  REP  1 1 ) =WL 
GCTC  500 

650  KR1T£(6,18C)1 

160  FCRFATdX,'**  THE  INPUT  CAT  E  • ,  1 3 , 2  A  ,  *  IS  BIFLRE  STARTIKG 
0  A  Y  ,PLS  FEV1SE  IT  ',///) 

REP ( I  )  *  C 
5C0  CCNT1NUE 
C  HR  I TE  16  )REP 

hRITE  (3 .15CIREP 
150  FCRHATI2CI4) 

DC  700  I  * 1  ,N  1 
SRPII.l)*REPORTEl,n 
SRPCI  ,2  )=REPC)RT  (I  , 2  )♦  1 
SPPI1  ,3  )  =mCL (REPORT ( 1 ,3), 100) 

700  CCNTINUE 
C 

STOF 

ENC 


REPC05b( 

R£PC057< 

REPC058C 

REP0G59C 

REPC060i 

REPCG6K 

REPCC62C 

REPC063‘ 

REPG064C 

REP0065C 

REPCCtbv 

REPCC67C 

REF0066C 

REP0G69( 

REPCO  70( 

REFC071C 

REPC072C 

REPG073C 

REPC074C 

REPOO  ?5( 

REPCO 76C 

REPCG77C 


FILE:  REPCOM  FORTRAN  a 


VM/SP  CMS  RELEASE  3.1.  E  851112,  CFC 


U.C.  BERKELEY 


C  «  * 

C  *  REPCOM  FORTRAN  * 

C  *  * 

C  *  REPCOM  READS  8BTCAP  AND  BBTREP  DATA  AND  MERGES  TwC  FILES  * 
C  *  TO  SET  REPORTING  DATES  INCLUDING  CAPACITY  CHANGE  CATES.  * 

C  *  * 


INTEGER  REP (ICO) ,CAP( lOO) .SET (ICO) 

c  reac  capacity  change  dates  ano  reporting  dates 
c 

REACH, ICO)  CAP 
REAC( 2 , 100  )  REP 
ICO  FORMAT ( 2C14  ) 

DC  10  1*1,100 

IF(I  .NE.l.AND.CAPt  n.EC.O)  GO  TO  11 
SE  T ( I ) *C AP (  I ) 

10  CONTINUE 

11  11*1 

DO  13  1*11,100 
u*I-1 1*1 

IF (J.NE .1 .AND.REP(J).EC.O)  GO  TO  15 
SET( I )=REP(J) 

13  CONTINUE 
15  111*1-1 

hRITE (3 , 20C )  (SET (1), 1*2, 111) 

2C0  FORMAT!  14) 

STOP 

ENO 


REPC001 

REPC002 

REPG003 

REPCOOA 

REP0005' 

REPCOOfc 

REPCOO?' 

REPCOOb- 

REPC009I 

REPCOlOi 

REP  CC11'. 

REP0012» 

REP  CO  13( 

kEPGG1*( 

REP00151 

REPC01t>( 

REPCO  17v 

REPC018( 

REPG019C 

REP0020( 

REPC02U 

REPG022C 

REPC023( 

REP  C024i( 

REP:025( 

REPC02bl 

REPC027C 

REPC028C 

REPC029C 

REPC030C 

REPC031C 
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C  *  * 

C  «  REPC0N2  FORTRAN  * 

C  «  * 

C  *  REPCCK2  RE  AO  S  BB8REP  DATA  ANt  CONVERTS  IT  TO  CALENDAR  * 

C  *  TO  SET  REPORTING  OATES  INCLUDING  CAPACITY  CHANGE  DATES.  * 

C  *  * 


INTEGER  REFllOO)  ,SET( lOO) 

INTEGER  WKC (ICO) ,YE AR , SMQN, SQAY ,SYR , hKDTB ( 12 C, 31 )  ,CLND( IOC ,3  ) 

C  READ  TEMPORARY  REP.  DATES  IN  EEBREP  DATA 

C 

DC  1  1*1 ,  ICO 
REAC(7,1C0,END=2)  REP(l) 

ICC  FORMAT  (  I<t) 

1  CONTINUE 

2  11*1-1 
1SAVE«REP(1) 

DC  10  1=2,11 

IF ( I  SAVE .NE.REPI I) )  THEN 
I C  N  T  =  I CNT-*  1 
SE  T ( I CNT ) *  I  SAVE 
1  S A VE  =F.E P (  I ) 

ENCIF 

IF ( I  ■  E Q  .  1 1  )  THEN 
1CNT*ICNT-»1 
SET(1CNT)*ISAVE 
ENCIF 

1C  CONTINUE 
C 

WRITE(6,«)  •  NUMBER  OF  REPORTING  LATE  1S*,1CNT 
REAT (11  ,*) 

WR I TE ( 1 1 » 1 C5  )  ICNT 

1C5  FCRMATC*  CF  REPORT  OATES  IS', 15) 

WRITc(3,68)  SET 
66  FORMAT  (  2C 1  <t ) 

C 

C  REAL  THE  OUTPUT  OF  HORNING  DATES 

REWIND  6 

REAC  (8  ,66, £N 0*115  )WK.D 

C  REAL  THE  STARTING  DATE  CF  THE  FROuECT 

115  REAC(2,120)SmCn,SCAY,SYR 
12C  FORMAT (  l C A  ,315) 

C  REAt  THE  YEAR  CF  BEGINNING  IN  THE  WCRKlfC  TALLE 

REAL ( 2 , 120 ) YE  AR 
13C  FOR  MA  T ( 1GX , I  5 ) 

C  REAC  THE  WORKING  DATES  TABLE  FROM  FILE  WORKING  TATES 

DC  2  DC  1=1,120 

REAL (4,140)(NKDTS< I,J),J*1,31) 

2 CO  CONTINUE 
INC  FCRMATOH2) 

I  S V  F  =  (SYR -YEAR )«12^SM3N 
DC  3DC  1  =  1, ICC 


REP C001 

REPC002 

REPC003 

REPCOOa 

REP0005 

REPCOOfe 

REPC007 

REPGC08 

REPC009 

REP0010 

REPC011 

REPC012 

REP  0013 

REPGC1A 

REPCC15 

REPCGlb 

REP0C17 

REP0016 

REPG019 

REP0020 

REP0021 

REPC022 

REPC023 

REPC02A 

REPG025 

REPG02fc 

REP GO 2 7 

REPG026 

REPG029 

REP0G30 

REPG0311 

REPG0321 

REP0033- 

REPC039 

REP  CO  35 

REPC036' 

REP0G37i 

REPCC36 

REPC0  39; 

REPCO  «»0i 

REPCC«ili 

REPGGA21 

REPGG  A3i 

REPDC  9 ** t 

REPCC  A5v 

REPGG^Ov 

REP0C«*7C 

REPCGAbC 

REPCC«Sv 

REPCC50C 

RLPCC5K 

REP0052C 

REP0053: 

REPG05H,. 

REPCC55: 
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H=NKO(I  ) 

1F(P.E3.C.AND.I.NE.1)G0T0  500 
IFIH.EO.O)  THEN 
ClNO(  1 ,1 )*SMON 
CLNC ( 1 ,2 )*SCAY 
CLNDl 1 ,3)*SYR-1900 
GC  TO  300 
EN01F 

CC  310  JI*SCAY,31 
M  =  M-hKDTH  1SYR.J1) 

JCU  T  * J I 

IF18.E3  .OGCTC  380 
3 1C  CONTINUE 

JSYF*ISYR*1 
320  DC  330  UJ*1 ,31 

M=M-HKDTfc» JSYR.JJ) 

JCUT*JJ 

1F(H.E3.C)C0T0  390 
330  CCNT1NUE 

JSYR*J$YM1 
GCTC  32 C 

380  CLNC (1,1) * SHOf, 

CINE  (1,2)  *  JOliT 
CLNClI,3)»SYR-19C0 
GCTC  3 0 C 

39C  KHON  =  HOC(JSYF  ,12) 

1FIKMCN.GT.01GCT0  395 
KHON* 12 

395  KYR*<  USTR-KMCN)/12*YEAR 
CLNC (1,1 ) =KHPh 
CLNC (1,2  )  * JCUT 
CLNC ( I,3)=KYR-1909 
3C0  CCNT1NUE 

5C0  DC  AOC  1*1, 2C0 

I F  l  CLNC (  1 ,1  ).EC.O.AND.l . NE. 1 )  GO  TC  fcCO 
V.R1  TE  «9 , 15C  )  ICLNCt  1 ,  J),  J=1 ,3) 

ACO  CCNTINUE 
150  FCR8AT (12,12,12) 
tCC  CCNTINUE 
STOP 
END 


REPC056 

REP0057 

REPC058 

REPC059 

REPGC60 

REPOObl 

REPC0t>2 

REPC0b3 

R  EPGCfcA 

REP0065 

REP0G66 

REPC0O7 

REPGObB 

REP0069 

REPCO  70> 

REPC071' 

REPCO  72 

REP0073- 

REPC0  7A. 

REPCO  75< 

REPCO  7b> 

REPCO  77 

REPCG  7b- 

REPCO  79. 

REPCOBOi 

kepco8i» 

REPC082' 
REP0083( 
REPC08A( 
REP0085( 
REPC086i 
REPC087( 
REPCoeec 
REPC089i 
REPC0901 
REP009K 
R  EP0092C 
REPCC93v 
R  EPC09 A( 
REPC095( 
REFC09b( 
REFC097C 
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C 

C  COVERT  FORTRAN 

C  . . 

C  CCVERT  READS  FILES  REWORK,  BBALIST, 

C  AND  CREATES  ACT.  LIST  INCLUDING  R  E  N  G  R  K  S  t  SETS  NEW  RANKS  OF 

C  REWORKS,  MAKES  DURATIONS  FILE  AND  PROBABILITIES  FILE, 

C  SETS  FOLLOWERS,  AND  PREPARES  ATTRIBUTES  FILE  FOR  BRANCHING. 

C 

DIMENSION  TATTR(250,5),1TRC(600) 

DIMENSION  PRCER(63C,5  ),P1  (6  00  ) ,  P2  ( 60  C  ) ,  R3  C  60  C)  ,P<*  (6CC  )  »P5  (6GC  ) 
DIMENSION  1ST  1600) ,1CP (600)  ,PR (600) ,  I  SR  (tOO)  ,1  CM  tOO  I 
INTEGER  TFCLL(25Q,2).TYP(600),ITEST( ICO  I 

INTEGER  DURRUC0.5  I, D  1(600 ,02(600)  ,D3CtOC  ),DA  C 600 1  ,05(600) 
INTEGER  1S12500) , IC(2 500) ,IDUR (2500)  , IT  1 25 00  ) , TR ANK ( 2500 ) 

C  READ  REWORK  DaTA 

DC  70  J=l,tOO 

RE AC ( 2,  BO,  END  =  71)1  ST ( J), I  CP  < J) ,PR(J)  •  1 S  M  U ) , 1CR(J),TYP(J), 

ID  1 ( U )  ,P1(J)  ,D2(J)  ,P2lJ),D3(J)  «P  3( J)  » DM  U )  •  PA  (J)  ,D5(J)  ,P5(J) 

EO  FORMAT  (  AA,1X,AA,1X,F<*.2,1X,AA,1X,A4,  IX,  11,  IX  ,5  (IX, 13, IX, FA. 2)) 

70  CONTINUE 

PRINT  =>,'  *  NUMBER  GF  TEST  ACTIVITIES  IS  GREATER  THAN  bCO..* 
STOP 

71  NREF=J-1 

C  SET  TYPE  OF  TEST  ACT.,  SAVE  ACT.  NUMBER  AND  CREATE  TRANK 

NTE  ST  =  0 
K  =0 

DC  17  1=1,2500 

REAC(3,10,END  =  19)IS(1 ) , I C ( 1 ) , I  CUR ( 1 )  ,  IT  (  I ) 

DC  13  J  =  1 , NREP 

IF ( I S ( I).EC.IST(J).AND.1C(1).EQ.1CP(v))  THEN 
1 T ( I ) =2 

ifutest(ntest).ne.I)  then 

NT  EST  =NTEST*1 
ITEST (NTEST  )  =  I 
ENC1F 
ENDIF 

18  CONTINUE 
17  CCNTINJE 

10  FCRMAT(fcX,AA,2X,AA,3X,IA,2X,Il ) 

PRINT  $,*  «  NUMBER  GF  ACTIVITIES  IS  GREATER  THAN  25CC.. CHECK* 

19  NNGC  E  =  I  - 1 

NRlTElS,*)  •  NUMBER  GF  TEST  ACTIVITIES  IS*, NTEST 
MRITE(A.ICC)  ITEST 
ICO  FORMAT ( 1015) 

NACT=NNOLE 

DO  20  I =1 , NNCOE 
IFCIT(I)  .NE  .2  )  GG  TC  20 
K=K-»1 

TRANK ( I  )=K 

C  FINE  TEST  REPAIRS 


CCVC001 

CGVG002 

C0VCC03 

COVCOOA 

C0VCC05 

CCVCG06 

CEv:C07 

COVCOOb 

CCVC009 

COVCOIOI 

C0VCC11' 

C0VCO12 

CCVC013 

CCVCOlV 

COVCO  a5< 

COVCO  lb< 

CCV0017. 

COV  0018* 

C0VC019I 

CO  VC020t 

C0VC02K 

CO  V  C022I 

C0VCO231 

CC  vC02Ai 

CC VC025v 

CCVC02b( 

CCVCC27( 

CCV0028: 

CCVC029C 

CCVCC30C 

C0VCO3K 

COVCO 32; 

C0VCO33C 

C0VC03AC 

C0VCO35C 

COVC036C 

C0VCO37C 

CCVC0  38C 

COVCO 39C 

COVCOAOC 

covco  me 

CCVC0A2C 
CLv:0A3C 
CEVCOMC 
CCVC0H5C 
CCY  COAbC 
C0VCCA7C 
CC  >  CO  ABC 
CCv  C0**9C 
CC VCC50C 
CEVC05U 
COVC052C 
CEVC053C 
CEVC05AC 
CLVC055C 
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KN*C 

OC  AO  J  *  1  ,NREP 

IF  C 1 S 1 1 )  .EC.ISTt JJ .ANO.ICII  ».EC.1CP( J|)  GO  TC  SO 
AO  CONTINUE 
GL  TO  2C 
50  NACT*NACm 

I  S  l  NACT )  =  I  SR ( J ) 

ICINACT  )=ICR< J) 

1  CUF ( NACT ) *C 

IFCTYFI J>.NE .11  1  T  (NACT )  =  3 
IFCTYFlJl.EC.il  IT (NACT) =A 
H=NACT-NNQCE 
I TRC ( M  ) =  I 
DCRF(M,1)*C1 ( J) 

DLRF.(W,2  )  =  C2(  J) 

OUR  M  M  »  3 ) =C3 ( J ) 

OLRMM,  A  )*CA  ( J) 

DURR ( M , 5 ) =C5 ( J  ) 

PROER (M,1)*P1(J) 

PR0ER(M,2)=P2(J) 

PR06R (M,3)*P3(J) 

PROER (M ,A ) *F  A ( J) 

PRGER(M,5)*P5(J) 

IF  c  FR  C  J)  .LE.O.OG:  TO  bG 
KN*KN'»  1 

TFOLLIK ,KN)=NACT 
TATTR(K,KN+3)*PR( J) 

60  CONTINUE 
J*J-»1 

IFilSCI).EC.lST(J). AN 3.ICCI ) .EC.ICF (j))  GO  TC  50 
2C  CONTINUE 

PRINT  «, 'CALCULATING  BRANCH  PR  LB  S ' 

OC  50  J  * 1 *K 

SUM*TATTR(J,A)*TATTR(J»5) 

TATTR(J,1)*1.-SUM 
T  AT  TR  ( J  • 2  ) =9 .99 
TATTR1 J  ,3)*C.O 
IFCSUM.LE.C.)  GG  TC  93 
TATTR (J  »A )*TATTR (J»A)/SUM 
TATTR ( J ,5) =TATTR  ( J,5)/SUM 
90  CONTINUE 
C  WRITE  NEW  LISTS 

00  12  1*1, NACT 

12  WRITE (7,11 )I ,IS(  1  )  •  IC I  I), ICURI 1  ),IT(  I  l 
11  F0RMAT(I<*,2X,AA,2X,AA,3A,1A,2a,I1) 

WRITE (3 , 13 ) TRANK 
WRITE  (9,13  )OOR!R 
WRITE  (1C, lAJPRC'BR 
WRI TE (1 1 ,1 3JTF0LL 
WRITE(12,1A)TaTTR 
WPITE(13,12)ITRC 

13  FORMAT ( 2CI A  ) 

1A  FCRMAT(2CFA.2) 


CCVC056C 
CCVCG57C 
CCVCG5fcC 
C0VCG55C 
CCVCG60C 
CCVC061C 
CC vC0t2C 
CCVCC t3C 
COVCOfcAC 
C0VCC65C 
CCVCObbC 
CC VCG67C 
C0VCG63C 
CCVC0b9C 
C0VC070C 
C0VCG71C 
CCVC072C 
CCVCC73C 
C0YCG7AC 
CCVCC 75C 
CLV  CG  7fcC 
C0VGG77C 
CLVCC7EC 
CCVCC 79C 
CtVCCEGC 
CLVCC8K 
CLVG0B2C 
CLYCCE30 
CCVCCeAL 
CC VCC85C 

covcoebc 

ccvcoe7c 

C0VCG86C 
CCVCC850 
CCVC090C 
CCVCG91C 
CCV0092C 
CLVCC93C 
C0VCG9AO 
CL*  CG95C 
CCVCC96C 
CCVCC57C 
C 1 V  vC  9nC 
CLv:099C 
CCVv-louc 

CCvUClC 

CCVC132C 

CCVC1C3C 

cc  »  :i  :«»c 

CCv  .iC5C 

ccv:ic6c 

CLVCiC7C 
CCVC1CEC 
Clv . i C5C 
CCtullOC 
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c 

C  RPFCL  FORTRAN 

C  . . 

C  RFFCL  READS  FILES  RPFPAR,  BALlSTR,  P  B  NE  T  ,  B6FCLL 

C  AND  CREATES  A  NEW  NETWORK  INFO.  FILE,  FOLLOWERS, 

C  FILE,  INCLLCING  REWORK  ACTIVITIES. 

C 

Q  C  C  vCyVTVVVY?T^VYVVY*OTYVyyv^V^VVVVVYVVVVV  y  y V  y  O  y  vO  YV  y y 


BBPREC,  6TRCR 
AND  PREDECESSOR 


INTEGER  START (2503),C3MP(25C0) 

INTEGER  COR (2500) ,  ITYPEI2500  ) ,  1  TRCUOC) 

INTEGER  FCLH1COCO),NF(25CO)  ,FFGS(250C) 

INTEGER  PRED(1C000),nP(25G0) ,FPGS(25CC> 

C 

C  READ  NETWORK  FILE  (  WITHOUT  REWORKS  I 

DC  172  1  =1  ,2  50C 

172  RE  AC  (3, 131  ,END  =  173)L,FP0SU)  ,NF  { I )  ,FPCS(  I )  ,NF(  1  ) 

173  I TUF  N  s 1 “1 
C 

R£AE(A,  1A1)FClL 
REAP ( 2  * 1A1 JFREO 
REAEt  13  ,1A1  J  ITRC 
C 

c  reae  activity  list  i  including  reworks  ) 

DC  AA5  J-1.25CO 

AA5  REAC(  1  « A55  ,ENC- A  A  s  )  ST  ART  (  J)  ,COMP(J)  , 1TYFECJ) 

ASS  FORMAT (6X,AA,2x,AAt5x, II) 

A At  NNCCE*J-1 
C 

C  CREATE  FCLLCWCR  LIST 

IFF  =  FF3  S  ( I  TuRN  )*NF ( ITuRN ) 

k  =  I  Turn  •*  l 

DC  SI  I =K  , NNGDE 

N=0 

DC  S2  J  =  1  ,NNCDE 

IF  (CCfiPU)  .nE.STaRTE  J))  GO  TO  52 
N  =N  4 1 

FCLLC IFF4N)=J 
52  CCNTINUE 
NF  (  I)  =N 
FFC  S ( I ) =  I FF 
1 FF  =  1 FF  4NF (  I  ) 

51  CCNTInjE 

C  CREATE  PRECESSOR  LIST 

IFF -PPGSIITlRN)4NPI ITjRN) 

K=ITURN41 

DC  tl  I  -K  ,  NNOCE 
N*0 

Dr.  t2  J  -K  , NNCGE 

IF  (START!  I).nE.CCMF(J))  GO  TO  t2 

N  SN  4 1 

FREE (  IPP4N)  *j 
t2  CCNTINJE 


RFFGOOl 

RRFCC02 

RFFCC-03 

RFFGGOA 

RFFC005 

RFFGOOb 

RFFC007 

RFFC006 

RFFC009 

RFFCOIO 

RPFCG11 

RRFC012 

RFFC013' 

RFFCOIA 

RFFCOIS 

RFF CO  lb 

RFFC017 

RFFGOlb 

RFFC019 

RFFCC20* 

RFFCG21t 

RFFCC22. 

RFFOG23. 

RFFCC2A 

RFFCG2S. 

RFFC02ti 

RFFC027; 

RFF j02tt» 

RFFCC29* 

RFFC030C 

RFF003K 

RRFCG32E 

RFF;033( 

RFFC03AI 

RFFG03SC 

RFFG036C 

RPFC0  3  7( 

RFFC038C 

RFFGG39C 

RFFGOaOC 

rffcgaic 

RFFG0A2C 
KRFGGa3( 
RFF  EC AAC 
RFF  „GA5C 
R  FF  GC  46C 
RFF :OA7C 
RFFC0A6C 
FFFG0A9. 
RFFCGSOC 
Rf  FCG5K 
RFFCC52C 
RFFCC53C 
RFFCC  SAC 
RFF  .G55C 


i 


F  ILC  :  RFFCL 


FCRTRAN  A 


VK/SF  CMS  RELEASE  3.1.E  8S1112,  CFC  -  L.C.  BERKELEY 


NFIl)-N  ,RPFC05b( 

PF 0 S t I ) -  IFF  RPFC057( 

IPP  =  I PP4NP ( I  )  RFFCOSeC 

fcl  CCMINUE  RFFC059L 

DC  lb  1  1=1 »NNDD£  RFFCObOC 

1  fcl  KR1TEC7, 131)1, FPOSm.NFtn.PPCSUl.NFU)  RFFCOfclC 

131  FcRM AT (515)  RPFC0b2( 

NR1TE (8,141)FOlL  RFFC063C 

KF.ITE19  ,l<il)PRED  RFFCObOC 

1  <,1  FCRMAK  2C1  <t)  RFFC0b5C 

STOP  RPFCOtbC 

EkD  RFFGOb7C 


oc'ioor'iorir'ior-' 


F 1LE :  RA8 


FORTRAN  A 
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FAB  FORTRAN 


RAfi  READS  FILES  3BRE S .E SFOL R , E AL 1 S T R ,BE AL IS T , BNE 1R ,6E rfCL ST , 
BBINTEN  AND  BEANO" ,  AND  CREATES  RE  W  RESOURCE  LlSl,  CALCULATES 
INTENSITIES  AND  NUMBER  OF  SHOPS  RECU1REC  FOR  EACH  REWORKS. 
9TRCR  AND  RPES  ARE  INPUT  FILES,  TC 0 . 


INTEGER  SCCOC)  ,C(  10G3), ST(IOCC). Al  (  1COC)  ,SFiT( 200  ) 

INTEGER  SANUM.SASHCPI 70) , IT  TAB 1 100) 

INTEGER  1 S (2500 ) ,IC (2500) ,1  ST (2500) , I  CP (25  00  ) 

INTEGER  FPCS(25CC) ,1TYPE(25  0  0) ,FOLL( 1C0C0)  ,ITS(25C0) 

INTEGER  ANLM2500)  ,ANUMM(2500)  .ASFOF  (  25 CO  ,  70  ) ,  A  SHCPM  (  25 CO  ,7C ) 
DIMENSION  A125C0,7C),AM(2  500,7C),SA(  70 
C 

FCCNST  *1  • 

C 

C  RE AC  IN  THE  ACTIVITY  NUMBER  OF  TESTS  FROM  FILE  BBTEST 

C 

RE  AC (11, IOC)  1 T  T  A3 
ICO  FOR  MA  T l 1  Cl  5  ) 

C  READ  THE  DATA 

PRINT  «, 'READING  FOLLOWERS* 

REAC ( 2 ,951 )FClL 

551  FORMAT ( 2C I  5 ) 

PRINT  *, 'READING  ACT  I  V  I T Y -R E SOURCE  DATA' 

REA LO, 9F8, END *733  JANUMM 

see  forma T(2ci<i) 

733  CONTINUE 

DC  550  N A  =  1 ,2500 

REaC(7,5‘2,EnC=553)IST(NA),1CP(NA) 

552  FCRMAT(5A,A5,1A,A5) 

K*ANUMM(Na) 

IF(K.EO.C)  GO  TC  950 

REAC (9,5e2)(ASHCPM ISA, J) ,J=1,*  ) 

5 12  FORMAT ( 2C  15 ) 

9bb  READ  ( 10 ,9b2)  (  AM(NA  ,U)  ,  J=1  ,N  ) 

5t3  FORMA  T I 1CF6 .2 ) 

9 SG  CONTINUE 

55  3  N  2  =  N  A  *  1 

DC  <*50  NA  =  1,25CG 

REAC(17,«,52,EN0*45?)lS(NA),IC(fA),ITYFE(NA),ITS(N») 

452  FORMAT (5)  ,A5 ,1X ,A5 ,5* , II , 3* , 1 1 ) 

454  REAC  ( b , 4 1 1 JFFCS(NA) 

4 1 1  FCFMAT(5A,  15) 

45C  CONTINUE 

453  1*3  *N  A  ■  1 


RAB0001C 
RAE0002C 
RAEG003C 
RAE0004C 
R AB0005C 
R  AB  COObC 
RABC007C 
R  AB  CO  CoC 
RAE0009C 
R AB0010C 
RAEGOilC 
RAB0012C 
RABC013C 
RAe00l4C 
RAB0015C 
R A6C016C 
RABC017C 
R AE0016C 
RAB0019C 
R ABC020C 
RABC021C 
RAB00220 
R  AB  00230 
R  AB  00240 
R  aE  0025C 
RA30026C 
RAB0027C 
R  AbOG2BC 
R  aBG0290 
RABC0300 
R  Ac  CO  3 10 
R ABG032C 
R  At  GO  330 
RAB0034C 
R AE00350 
RAbC03bG 
R  AB  GO  370 
R  AB  GO  360 
RAB00390 
RABG0400 
R  AS  CO  4 i G 
KABC0420 
R  AECG43J 
R  AE  CO  440 
k ABCG45C 
R  Afc-.G  4b C 
RASCG4  7C 
R  ABC04&C 
h  4r CO  49C 
R  AB  GO  500 
R ABcG510 
k  AE<.C52C 
CAE  GC  530 
R AE  GO  5  4C 
k  Ac  C055C 


GO  230  J=1,1CCC 
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230  REAC(20,24C,END=244)S<J),C<J),ST<J),A](J) 
24  0  FORMAT  (14X»A5»A5,2X,14,1X,I2) 

244  NCL  =  J”  1 

DC  245  J-l ,200 

245  RE  AO  121 ,241  ,END  =  24t>)  SHT(J) 

241  FCRHAT  (5X » 15  ) 

24fc  NRT=J-1 


DC  20  1*1, N3 


I F «  1TYPEU) 

.EC 

.3) 

GO 

TO 

120 

1F< 1TYPE1I  ) 

.EG 

.4  ) 

GO 

TO 

12C 

1 F 1 1  TYPE  «I  ) 

.EC 

.9) 

GO 

TO 

bO 

I F ( ITYPE(l) 

.NE 

.2) 

GO 

TO 

8  C 

1 F  (  1C  (  I  )  .LE 

.9999) 

GO 

TO 

60 

ISTART*  1S(  I  ) 

K*FFGS  C  1  )*1 
J*FCLL(K) 

1 COHP  *  I C ( J  ) 

GC'  TO  9C 
60  I  CDF?  = 1 C  ( I  ) 

1  ST  AR  T  =  I  S  C  I  ) 

90  CONTINUE 

DC  30  K=1,N2 

3C  IF  (I STAPT.EQ.ISTCK).AND.1C0MF.EC.ICP<K))G0  TC  40 

PLT  STANDARD  INPUT  MIX  AND  AMOUNTS  TC  THE  Tt ST 
C  IF  C 1TSI X  >  .EC  .C) ITS  C I) -1 
C  K=1TTa3(ITS(I)) 

K  =  I 


40  ANUM  I  )  *ANCMM(K  ) 

PRINT 

NRS^ANU"!  I  ) 

DC  50  L  *  1  , NR  S 
ASmCP(I  ,L)=AShCPm(K,L ) 

50  A  (I  ,L  )*  AH  |K  ,L  ) 

GC  TO  2  C 
tO  ANUH ( 1 ) *C 
GC  TO  2 C 
120  M  =0 

ANUH (  I  ) *  C 
DC  1 4  G  «  *1,NCL 

IF  (I  SI  1 )  .NL  .S(U)  .CR  .  ICm.NE  .Cl  J)  >GC  TC  140 
PRINT  3,S(J),CtJ)tST(j),Al(J) 

OC  15C  L*1,NPT 

IF  l S T  t  w ) ,E C • SMT  ( L  )  )  GO  TC  lbO 
150  CONTINUE 

IF ( ST  4 J)  .NC  .0)  PRINT  4,*  SHOP  CCL S  NOT  EXIST  FOR  Sl.STlJ) 
GC  TO  1 4 C 

ItC  A  N  U  H 1  I  J  *  ANLM (  1  )♦  1 
M=M-»1 


RA6G0561 

R  A£C057i 

R  ABC056( 

RA6C059< 

RAeC06C( 

RABCObM 

RAEG0t2( 

RAeC063( 

RABG064( 

RABG065: 

RAEG06b( 

RAEC067C 

R AB  C0b6( 

R AE0069C 

RABC070C 

RAEG07K 

R  aE  CO  72 ( 

RAB00  73C 

RAEC074C 

RAE0O75C 

RAEC07bC 

RAEC077C 

RAEC0  78C 

RA5  0C79C 

RAEC080C 

RAB0081C 

R AE0082C 

RAE0083C 

RAEC084C 

R  AB0085C 

RAEC086C 

RAEC087C 

R A8C088C 

R AECC89C 

R  AE0090C 

RABC091C 

RAE0092C 

R  A60093C 

RAE0094C 

RAE0095C 

RAE0096C 

RAE0097C 

R  Ac  00  96C 

RAE0099C 

R  AECl OCO 

R AEC1C1C 

R  AE  Cl  02  C 

R AEC1C3C 

RAEC104C 

R  AcC 1 C5C 

R AEGlCbt 

RAEC1C7C 

R AE0106C 

R  AcCl  09v. 

R  Ac  01  IOC 


l£ : 
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ASHCPU  ,P)=l 

RAcOlll 

A ( I ,M)=A1( J) 

RA30112 

1*0 

CCNTINUE 

RA30113 

20 

CCNTINUE 

RAEC11* 

WRITE  NEW  INPUT  LISTS 

RAEC115 

DC  *  1*1. N3 

RA20H6 

1 F ( anlm (  I )  .EC  .0  )  GC  T G  * 

RA8G11  / 

WRITS  |3,*0CMASh0P(  I,  J)  .  J*1 .  ANUM ( 1 ) ) 

R AE0116 

WRITE(1*»3C0)(A(I»J),J=1,ANUM(I)) 

RA5G119 

* 

CCNTINUE 

RAE0120 

Wfi  ITE  1 1  .  *0C )  ANUM 

R  AE  Cl  21 

2C0 

FCRKAT ( 1CF  6 . 2 ) 

RAE0122 

*co 

FCRMAT ( 2CI 4 ) 

RAEC123 

STOP 

RAEC12* 

ENC 

RAEC125 

noooooooooo 
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AA  AAA  A  AA  A  A  A  A  A  A  .V  A  A 
wVrvVv  V  w  v  vy  vv  v  vv 

V* 

MICORG  FORTRAN 


MICCRG  DOES  SCHEDULING  ACCORDING  TO  3  CATEGORIES  i 

1.  DETERMINISTIC  SCHEDULING 

2.  STOCHASTIC  SCHEDULING  REGARDING  TEST  REWORK  LOOPS 

3.  SIMULATION  USING  RANDOM  RESOURCE  REQUIREMENTS 

ALL  3  CAT.  CAN  USE  UPGRADING  OR  UP  l  DOWNGRADING  ALGORITHM 
*  VERSION  FOR  INTERACTIVE  RUN 


AA  A  AA  AA  A  A  A  AA  AA  AAAA  AA  A  AA.  AAAAAA  A  AAAAAA  AA  A  AA  AAA  AA  AA  A  A  A  A  A  A  A  A  A  A  A  A  A  A  A 
rvwrvr-yyrVTvvvvvYYYV  w  w  vv  vV  vvr  wv  vv  v  v  ¥rVvVVV  w  V*v9  vv  v  vv-r  vv  VV-vv 


400 


CHARACTER-50  NAME 

INTEGER  TUTMHR ( 50 ) »  TMILEI50),  ACSH0PI5C),  ACCWC(200), 

♦  TOTMDY (300) .1MILEI3) .SMILE ( 50 )  ,MDAT E (3  ) 

REAL  RE  SREC (50 )  ,AT0T(300) 

DIMENSION  A(2500,7C)S  ITYPE(2500) 

INTEGER  ASHUP(2500,70) ,ANUM( 2500) .MILE (2500) ,MILSTN(50) 

INTEGER  FROM (2500) ,TU(2500) 

DIMENSION  ZL(2500) ,ZU( 2500), Z( 2500) 

DIMENSION  CAP  (200 ) ,  AR  ( 200  )  ,L  0ST  ( J  5  )  ,  D  SEE  DS  ( 5  ),  A 1  (  2500 ,70 
DIMENSION  PCV(2500),TLU(2500) 

DIMENSION  T ST  ART (2500) ,TF INIS (2500) , ATFIN(25  00 ) 

01MENSICN  CIC (50  ,2CG) 

REAL  LS(2500)  ,DFL ( 30) ,  ACUMRS( 200) .ACLMSP (50  ) 

INTEGER  F0LL ( 10000 ) ,NF (25 CO ) ,FP0S(250C)  ,WCSHCP(20C)  .NSHLP 
INTEGER  PRE D (10000 ) ,NP(2500) ,PP0S(250C> ,REPD AT ( 50 ) , NREPDT 
REAL  CTRANF (10000) .CTRANP(IOOOO) 

INTEGER  PRI(2500),DUR(2500) .RANK (2500), TFCCl 50) 

INTEGER  STATUS! 2500 ) , I ACT  IV ( 1000) , IR E ADY ( 100C) 

DIMENSION  NPRI (1000), DRV (1000) .IRE V( 1C00) ,TE  VENT ( 10000) 

INTEGER  CU0E  ,T 1MVEC ( 10000 ,2 ) ,ADT 1ME ( 1  COO , 1 1) 

INTEGER  TFCLL(250,2),TRANK(2500) ,0URR(600,5) 

DIMENSION  TATTR(250,5),PR0B( 10) ,RDUR(10).EDUR(250C) .PRDER (600  ,5 ) 
INTEGER  VEAR,SM0N,SDAY,SYR,WK0TB(120,31).CALND1(3),CALND2(3) 

C0MM0N/EB1/  IREADY,  1  ACT  1 V.NRE ADY ,NA C T I V 
C0MMQN/BB3/  JNX.JF.JL.LWC 
CLMM0N/RP4/CTRANF ,CTR ANP 
CCMM0N/BP5/  LS.NNJDE,  RANK,  I  TURN 
COMMON/ B 66/PRE D ,  NP,  PP0S 
C0MM0N/B6 7/FULL ,  NF ,  FP0S 

CCMM3N/EE3/PCV.TLU.TF INIS ,Z, CLOCK, DUR  .LENGTH 
COMMON/ 969 /AHUM ,  ASHO0,  A,  AR 


M1C00010 
MIC00020 
M1C00030 
M 1C00040 
M1C00050 
M 1C00060 
M1C00070 

Hicoooeo 

M1C00090 
M1C00 100 
MIC00110 
M  1C0OI20 
M 1 COO 130 
M1C0C1A0 
M1C00150 
M 1C 00 160 
M1C00170 
M1C00 160 
HIC00190 
M 1C00200 
M1C00210 
M1C00220 
M1C00230 
M1C00240 
M1C00250 
M IC00260 
M1C00270 
M1CC0280 
M 1C00290 
MIC00300 
M 1CC0310 
M1C00  320 
M 1C00330 
M 1C00390 
M 1CC0350 
MIC 00 360 
M 1C00370 
MICC0380 
M ICC0390 
MlCCC<i00 
M1CC0A10 
M  1CC0420 
M  1CC0430 
M  1CG0  4<»0 


COMMON/P6 10  /  1REV ,  NPRI,  JFLAG 
C0MM0N/BP11/ZL 

COM M3N/9E 12/1  TYPE , ZU , CAP , TFCC , C IC 
C0MM0N/BP13/NRES ,  NCC 
CCMM0N/CC9/  WCSHCP,  NSHUP 
C0MM0N/CC1C/ACUMRS,  A  CUM  SP 
CCMMON/RMVMN/TEND 
COMMON/ YYY/L T IMF 

COMMON/ ITT /It VENT ,T 1MVEC,  ADT 1  ME .NXT V E C 
CCMMON/DCON/SMON.SDAY ,SYR ,YE  AR .WKDTB 
CHAFACTER$i  NNTES 


M  1000^50 
M  1CC0^60 
M1C00470 
M  ICG0  4BQ 
M1CC0A90 
M  1C00500 
MIC0051C 
MIC00520 
M 1C CO  530 
M1CC05A0 
M 1  COO  550 
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C  RE AC  INPIT  FILES 

C 

READ ( 33  ,322 )  NRES.NSHOP 
REAC ( 34  »322 )  NCC 
READ ( 35  *322 )  NREPOT 
C 

322  FORMAT ( 20X  » 1 5 ) 

C  READ  SEED  FOR  RANDOM  NUMBER 

READ(17,1777,END=777)  NR AND 
GC  10  778 

777  WR 1 TE ( 6  ,  t )  •  PLEASE  ENTER  A  NUMBER  FOR  RANDOM  NUMBER  C-ENEkAT ION • 
RE AC (5 , t )  NRAND 

778  CCNtINUE 
C 

WRITE(6,t>  « 

WRI TE (6  »t)  * 

WRI TE (6  .*) ' 

WRITEC6,t) • 


t  M  I  C  0  R  G  «' 

« 


WR I TE (6  ,t ) •  ENTER  OPTION  0  =  READ  PARAMETERS  FROM  INPUT  FILE* 
WRlTE(6,t)*  1  =  INTERACTIVE  INPUT* 

REAC  ( 5 ,  t )  HII 
1FC1I1I.EQ.0)  THEN 
REACH. 323)  NAME. 

♦  IRAPOL  flLOk. IUPfNTEST.KTENDfNCYCLEflTARG, ICALD 

lF(NCYCLE.EQ.l)  ISIM*l 
IF(NCYCLE.NE.l)  ISIM=2 
CO  TO  352 
CNDIF 

WRITE (6 , t )  *  ENTER  PROJECT  NAME  l  MAX.  50  CHARACTERS  )' 

Wkl TE (6 ,t)  •  - - 

REA0(5 , 333  )  NAME 
333  FORMAT ( A50 ) 

WRI  TE (6 ,t ) *  ENTER  ASSIGNMENT  POLICY  :• 

1  WR 1 TE (6  .  t ) •  1  *  UPGRADING  ONLY,  2  =  UF  &  DOWNGRADING* 

REACI5 ,t )  IRAPOL 

1F( IRAPOL. LT .1.0R.1RAPUL.GT.2)  THEN 

WRITE (6,t) •  t  ILLEGAL  POLICY.  PLEASE  ENTER  AGAIN.* 

GC  TO  1 
E  NO  IF 

WRITE (6,t)  •  • 

WFlTE(6,t) *  ENTER  LOWER  i  UPPER  BCUNU  UF  INTLNS1TT  :• 

2  WRITE (6 ,t) *  (  USE  PERCENTAGE  VALUE  E.G.  100  FOR  100  *)  * 

REACH, t)  ILUW.IUP 

IF(  ILCW.LE .O.OR. IUP.GT .999)  THEN 

WRITE (t,t)*  t  ILLEGAL  BOUND.  PLEASE  ENTER  AGAIN.* 

GC  TO  2 
Ef  OIF 

WF  ITE  (6  »t ) '  • 

WRI  TE  (6  ,t )  •  ARE  THERE  ANY  TEST  ACTIVITIES  ?  <Y  Ik  N>* 

REAC (5,335)  NNTES 


M1C0G56C 
M 1C0057C 
MICC058C 
M IC0059C 
M1CC0600 
M ICG061C 
M ICG062C 
M 1CG063C 
M 1CC0650 
M ICC0650 
M1C00660 
M1C00670 
M ICG0680 
M 1CC0690 
M1CG0700 
M1C00710 
Ml COO  720 
M1CG0730 
M1C00750 
Ml COO 750 
M1CCG760 
MICC0770 
M1C00760 
MICG0  790 
M1CG0800 
MIC00810 
M 1C CO 820 
M ICG0830 
MIC0C850 
M ICG0850 
H 1CC0B60 
H1C00870 
M 1C  00880 
M ICG0890 
MICC0900 
M ICC0910 
MIC00920 
MICC0930 
M  1CC0950 
M 1CC0950 
MIC00960 
M1CC0970 
M  1CC0960 
MICC0990 
M  ICC1000 
MICC1010 
M ICC  1 020 
M ICC  1 030 
M ICC1050 
M 1 CC1 050 
M1CC1060 
MICC1070 
M 1CC1 080 
M  ICC  1 090 
M1CC1 100 
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334  FOR  MAT { A 1 ) 

1FTNNTES.EC. • Y  ')  N7EST=1 
IF  T NNTE  S .EC •  *N  •)  NTEST  =  0 


WR1TET6,*)*  • 

WRITE (6 1*) *  ENTER  NUMBER  OF  RUN  CYCLES  :• 

4  WR1 TE  T6  »*)  '  1  *  SINGLE  RUN  WITH  DETERMINISTIC  RE  SOURCE  USE* 
WR1TET6,*)*  N  *  N  SIMULATIONS  WITH  RANDOM  RESOURCE  USE* 
REACT5,*)  NCYCLE 
IF(NCYCLE.LT.l)  THEN 

WRITETfc,*)*  *  ILLEGAL  NUMBER.  PLEASE  ENTER  AGAIN.' 

GC  TO  4 
END  IF 

IF(NCYCLE.EQ.l)  THEN 
I  51 M  =  1 
KTEND  *9999 
GC  TO  6 
ENDIF 
I  SIM  =  2 

WRITE (6»*) '  * 

MR1TET6,*)'  ENTER  LIMIT  OF  PROJECT  FINISH  TIMt  FOR  SIMULATIONS* 
REACT  5  »< )  KTEND 


6 


342 


C 


C 


c 


344 

7 


WRITE (6  t* ) *  ' 


KRITE(6,*)»  ENTER  PROJECT  TARGET  FINISH  TIME  (  0  IF  NONE 
REACT  5  »*  )  1TARG 
WR1TET6,*)*  ' 

NR1TET6.*)*  CHOOSE  ONE  OPTION  FOR  REPORT  OATES  *.* 

WRITE  T6  »*) *  0  *  REPORT  IN  WORKING  DATES' 

WRITE T6»«)'  1  *  REPORT  IN  CALENDAR  DATES* 

READT5,*)  ICALD 


CONTINUE 

WRITE (6 ,* )  *  THANK  YOU.  IN  PROCESSING 


ZLOW* ILON* .01 
ZUP=ILP«.01 
T IME  =  C . 
TEND*KTEND$1. 


WRITET6,*)'  READING  POLL  l  PRED* 

REACT2»9f 1 )  FCLL 
RE ADT  3 ,9* 1  )  PRED 

WRITE  T6  ) •  READING  ACTIVITY-RESOURCE  DATA* 
REACT 4,951)  ANUM 

WRITE  I  6  ** )  '  READING  TRANSFER  C0FF1CIENTS* 
INITIALIZE  COEFFICIENTS  TO  1. 

00  344  1=1,10000 
CTRANFT 1  1*1. 

CTRANPT  1)*1. 

CONTINUE 

REACT  12  ,953, EN0=7)  CTRANF  ,CTRANP 
WRITET6,*)*  READING  ACTIVITIES  OATA  • 

NMILE  =0 
I  turn  *o 

do  950  NA  =  1 ,2500 


)• 


M1CG1110 
M1C01120 
M1C01130 
M1C01140 
M1CG1150 
MIC01160 
M1C01170 
M1CC116C 
M1C01190 
M ICC1200 
M1C01210 
M IC01220 
M1C01230 
MIC01240 
M IC01250 
M1C01260 
M  1C01270 
M1C01280 
M1C01290 
M1C01300 
M1C01310 
M1C01320 
MIC01330 
M1C01340 
M1C01350 
M1C01360 
MIC01370 
M1C01380 
M1C01390 
M1CC1400 
M1C01410 
M1CC1420 
MICG1430 
MIC01440 
MIC01450 
M1C01460 
M1CC1470 
M1C01480 
MIC01490 
M1C01500 
M 1C01510 
M1CG1520 
M1CG1530 
M1C01540 
MIC01550 
MIC01560 
MICC1570 
M1C01560 
M1C01590 
MICClfcOO 
M1C01610 
M  1CC1 b20 
M 1CC1 fc30 
M 1CG1640 
M1C01650 
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READ(7,952,END=101)  FROM(NA)  ,  TO  (NA I  ,  DLR  IN  A I  ,  IT  THE  (NA ) 

IF( ITYPE(NA).N£.3.AN0.ITYPE (NA)  .NE.4  )  HUKN  =  ITUKN-*1 

IF(ITYPE(NA).NE.7)  GOTO  954 

NM I LE  =NM ILE  +  l 

MILE(NA)=NM1LE 

MlLSTNlNMlLE )=FROM(NA) 

954  REAL (8 ,961 )  FPOS(NA),  NF(NA),  PPOS(NA),  NP (N A) 

K  =ANUM  (  NA  ) 

IF(K.EQ.O)  GO  TO  950 

READ ( 9, 951 )  ( ASHOP (NA *J)»J=1»K) 

READ(  10  ,963 )  ( A  I ( NA , J ) , J* 1 , K  ) 

950  CONTINUE 
1C1  NN0DE=NA*1 
C 

C  REAC  MAPPING  WC  »  SHOP. 

REAO( 13  ,951 )  (WCSHCP( I ) , I =1 ,NRES) 

C  READ  DATES  OF  REPORTING  OATES 

IFCNREPOT.GT.OI 

■»  READ ( 16  ,951 )  ( REPOAT( I ) ,1  *  1 .NREPDT  I 
C 

C  IF  THERE  IS  NO  TEST  ACT.  SKIP  READING 

IF(NTEST.EC.O)  GOTO  379 

WRITE(6,«)  •  READING  RE WORK -ACT I VI T I E S  DATA* 

RE AC ( 18  ,95 1 )  TFOLL 
READ( 19  ,953 )  TATTR 
READ ( 30  ,951 )  DURR 
READ( 31  ,953 )  PROBR 
READ ( 20  ,951 1  TRANK 
379  CONTINUE 

WR1  TE (6 ,*) *  READING  CAPACI TY ( T IME , RE  SOURCE )  • 

OC  497  1=1, NCC 

REA0U4, 3001,  END  =497)  ( C  IC  (  I  ,  J) ,  J*1  ,NSHOP  ) 

497  CONTINUE 

IF(NCC.LE.l)  GOTO  387 
C  READ  TIME  OF  CAPACITY  CHANGES. 

READ  <15,951,END=387)  ( TFCC (I) • 1=1 ,NCC ) 

3E7  CONTINUE 

WRI TE ( 6 ,*)  *  READING  RANK  OF  ACTIVITIES* 

READ( 11  ,951 )  (RANK( 1) ,1  =  1 .NNODEI 

PREPARE  CONVERTING  WORKING  DATES  INTC  CALENDAR  CATES 
ANO  VICE  VERSA 

READ  THE  STARTING  DATE  OF  THE  PROJECT 
REAC (52  ,520) SMON.SDAY ,SYR 
520  FERMAT ( 1CX ,315) 

C  READ  THE  YEAR  OF  BEGINNING  IN  THE  WORKING  TABLE 

READ(53,530)YEAR 
530  FCRMA T( 1 CX , 1 5 ) 

C  REAC  THE  WORKING  DATES  TABLE  FROM  FILE  KLRK1NG  CAlES 

DC  533  1=1,120 

REAC! 54  ,540!  (WKDTBd,  J),J=1,31) 

533  CONTINUE 
540  FORMAT (3112) 

C 

C  TRANSLATE  CALENDAR  DATE  OF  TARGET  FINISH  INTO  WORKING  DAY 


MIC0166C 
H1CC167C 
K1CC168C 
M1CC169C 
H1C0170C 
M1C0171C 
M1C0172C 
H1C0173C 
MICC1740 
M1CG175C 
M1CG176C 
M  1CC177C 
M1C01780 
M1CG179C 

Micoieoo 

MIC01810 

H1C0182C 

M1CG1830 

M1C01840 

M1C01850 

M  1C  01 860 

M1CC1870 

M  1CC168C 

M  1C01890 

M 1C  Cl 900 

M1CC1910 

M1CC1920 

M1CC1930 

M  1C01940 

MICC1950 

M1CC1960 

M 1CC1970 

M 1CC1980 

MIC01990 

MICC2C00 

MIC02010 

M1CC2020 

M1CG2030 

MICC2040 

MICC2050 

M1CC2060 

MIC0207C 

M IC02080 

M 1C02090 

M1C02100 

M1CC2110 

M1CC2 120 

M1CC2130 

MICC2 140 

M1CC2150 

M1CC2  lt>0 

MICC2170 

M1CC21S0 

M ICC219C 

MICC2200 
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C 

IF( ITARG.EC.O)  GO  TO  551 

1Y£R=ITARG/100 

IMOK=ITARG/10COO 

NCATE (3  )*ITARG-1 YER$100*1900 

MCA  TE  ( 1 )  * IMON 

MCATE(2)*( ITARG-1MCN*10000-MDATE(3)*1S00)/100 
CALL  CALATMCATE  •  I SCF I N 1 
551  CCNT1NUE 
C 

c 

C  END  OF  CATA 

C  - 

HR  I  TE  ( 6 ,6 )  '  END  OF  DATA  .  INITIALIZE  VALUES  FOR  SIMULATION  • 
C  - 

c 

C  FIND  EXPECTED  DURATIONS  FOR  TEST  ACTIVITIES 

C 

IF  (  1TLRN  .EQ.  NNODE  )  GO  TO  2999 
C  REPAIR  ACTIVITIES 

K*1 TURN  +1 
DC  e*  I  =K, NNODE 
MM-1TURN 
CO  83  N  =  1 ,5 
PROB(N)=PROBR(M,N) 

83  RDUR(N)=CURR(M,N) 
eA  DURlI )*XPEAN(PR0B,RDUR,5) 

2999  NFL AG=0 

DO  383  1=1 , NNODE 
IF(1TYPE«I).NE.2I  GOTO  381 
C  find  EXPECTED  DURATIONS  OF  REPAIR  AFTER  TEST 
J=TF  ANK ( I ) 

lF(TF0LL(J,l).fcG«0.AND.TF0LL(J,2).EQ»C)  1TYPEC 1 )*C 
IF(  1TYPECD.NE.2)  GOTO  381 
DC  389  L*1 ,2 
NC=0 

PROE(L)=TATTK(J»3*L  ) 

K=TFOLL(J,L) 

RCUR(L )*C. 

IF(K.EC.C)  GOTO  389 
RDUR( L  )*CUR(K ) 

385  IS=FP0S(KM1 
M  =FCLL (IS) 

NC*NC ♦ 1 

IF(T0f  I).tO.TO(KI)  GOTO  389 
K  =FCLL (IS) 

RCUR(L)=RCUR(L)+CUR(K) 

IF(NC.LE.9)  GOTO  385 
C 

WRITE  (6,99)  I,J 

99  F(RMAT (5X, 'TEST', 3X, 19,  '  RANKE D * , I  5 , 3X , •  1  S  UNCONNE CT t D * ) 

NFL  AG  =  1 
GOTO  3H3 
3L9  CCNTINUE 

PR  =  TATTR ( J,1 ) 


M1C02210 

M 1CG2220 

M1C02230 

MIC02290 

M IC02250 

MJC02260 

MIC02270 

M1C02280 

M1C02290 

M1C02300 

M1C02310 

M1C02320 

M  1C02330 

M  1C02  390 

M JC02350 

MICG2360 

M 1C02370 

M1C02380 

M1CG2  390 

HIC02900 

M 1C02910 

M1CG2920 

M1CC2930 

M1CC2990 

M1C02950 

M1C02960 

M 1C02970 

M1CC2980 

M IC02990 

M1C02500 

M1C02510 

M1C02520 

M1CC2530 

MICC2590 

M1C02550 

M 1C02560 

M  1C02570 

MIC02  580 

M1C02590 

M1C02600 

M1C02610 

M1C02620 

M1CG2630 

M1CC2690 

M1C02650 

M1C02660 

M1C02670 

M ICt* 680 

M1CC2O90 

MIC02  700 

M1C02710 

M1CC2720 

M1CC2730 

M1C02790 

M1CG2750 


•  j f  V 


v- • 

id 


./ .1 
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ALFA*TATTR<J,2) 

C  EDURC 1)  =OUR(IM(ENS(PR,ALFA)-l  .)$DURI  l)*XMEAMPKOB,RDUR  ,6) 

EDUR(  I ) *CUR ( I  1  .“PR  )*XME AN  (PROB,RDUR»2) 

GCTC  383 

381  EDURI I) *OUR< I) 

383  CONTINUE 

IF(NFLAG.EC.l)  STOP 

C  SET  LOWER  AND  UPPER  BOUND  OF  INTENSITY 

DC  97C  1*1 ,NNOOE 
2L ( I ) s2LCw 
ZL(1)=ZUP 

IF U TYPE  II) .EC.l.CR.I TYPE (I ) .E0.2.0R . ITYPfc ( I ).EQ.A)  THEN 
ZL ( I ) =1 .0 
ZL(I)*1.C 
END  IF 

9  70  CENT  I NUE 

START  SIMULATION  CYCLIES 


OC  1999  1CYCLE=1,NCYCLE 
C 

NXTVEC*1 

T1ME*0. 

LT IKE  *0 
CLOCK =0. 

T  ACCUH*0. 

TlA$*0. 

LAST=0 
ISMTCH=0 
NREC=0 
PF1NI S=0 • 

NACTI V*0 
NRE ADY=0 
LENGTH*0 

C  RESET  SCPECULE  TABLES 

DC  A32  1*1,10000 
T I MVEC 1 1 , 1 ) *0 
TIPVEC ( I ,2 ) *0 
A3 2  TEVENTI  I)=C. 

OC  A3 A  1*1,1000 
DC  A3A  J  =  1,U 
A3A  ACT1MEI 1 ,J)*0 

DC  1773  L*l, SMILE 
177b  TM1 LE ( L  ) =99999 

C  RESET  ACCUMULATION 

DC  920  I*1,NKES 

920  ACUMRSI I ) =C  • 

OL1  921  I*1,NSH0P 
TCTMHRU  )  =  C. 

921  ACUMSPI  1  )=C . 

C  F1NT  THE  ACTUAL  DURATION  FOR  REPAIR  ACTIVITIES. 

K  =  ITURN-»1 


M1C02 760 
M 1 C  02  770 
M1C027B0 
M1CC2790 
M1C02BOO 
MICC2B10 
M  1C02620 
M 1C0263G 
M1CC26A0 
M  1C02850 
M1C02860 
M1C02870 
M 1C02880 
M1C02890 
M 1CC2900 
M1C02910 
M1C02920 
M 1C02930 
M IC029A0 
M 1C02950 
M  1C02960 
M 1C02970 
M 1CC2960 
MIC02990 
M IC03000 
M 1C03010 
MIC03020 
H1C03030 
M1C030A0 
MIC03050 
M1C03060 
M 1C03070 
M 1C03080 
M 1C03090 
HIC03100 
M  IC03110 
M 1C03120 
M  IC03130 
MIC031A0 
K IC03150 
MIC03160 
MIC03170 
H1C03180 
M1C03I90 
M1C03200 
M1C03210 
MJC03220 
MIC0323C 
MIC032A0 
M  IC03260 
M1C03260 
M  IC03270 
M1C03280 
M  IC03290 
MIC03300 
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FILL:  M1CCRC  FORTRAN  A  VM/SP  CMS  RELEASE  3.1.E  851112,  CFC  -  U.C.  BERKELEY 


00  86  I =K , NNODE 
M  *1  -  I  TURN 
DO  89  N  =  l»5 
89  PRUBIN ) =PRCBR<M,N) 

CALL  PICMPR0B,KM,5) 

86  OUR ( I ) * CURR (M ,KM ) 

C  RANDOM  I Zt  THE  INPUT  REQUIREMENTS 

DO  1740  1  =  1  ,NNODE 
NRS  =ANUM ( I  ) 

IF(NRS.EC.C)  GOTO  1740 
IFUTYPEU  J.GT.4)  GOTO  1740 
DC  1740  J=1,NRS 
IF ( IS1M  .f 0.2  )  THEN 

CALL  RAND ( NR AND ,UR A NO) 

A(I,J)=A1(I » J ) *( URAND® • 4  ♦  .8) 

ENOIF 

1F( 1SIM.E0.1)  A (  I,J)  =  A1(I  , J } 

1740  CONTINUE 

C  SET  RESOURCE  CAPACITIES 

C 

DO  483  L  =  1 , NSHUP 
483  CAP (L)=CIC(1,L) 

INITIALIZE  ACTIVITY  OATA 
DU  382  1  =  1 ,  NNODE 
TF1N1S(I >=99999 • 

ATFIM  I  )=99999. 

STATUS ( I ) *NP ( I ) 

Z(I)«0. 

PCV( I)=0, 

TLU( I ) =0. 

382  CONTINUE 

START  SIMULATION 

NRITE(6,«)  *®®  START  SIMULATION* 

WRITE(6,<)  *®9  RUN  CYCLE  *  '.ICYCLE 

CALCULATE  ES  AND  LS  BY  CPM  AND  SET  INITIAL  PRIORITIES 

CALL  LSCHECCFDUR,TF1N1S»ISCFIN,1TYPE  ) 

CALL  SORiaS.PKl  , NNODE ,*NCWR ITE * > 

C 

C  SCHEDULE  CAFAC1TY  CHANGES 

IF(NCC.LE.l)  GOTO  313 
DC  543  I =2  »NCC 
TP=TFCC ( I ) 

543  CALL  SCHFD (7500  ♦  I,  TM) 

C 

C  SCHEDULE  REPORTING  DATES 

313  IF  ( f.REPCT  «E C  .0  )  GOTO  314 
00  544  1  =  1  ,NREPDT 
TM  =  REPO AT ( 1 1 

CALL  SC  HE  U ( 8  000  ♦  I,  TM) 


M1C03310 
M 1C03320 
M 1C03330 
MIC03340 
MIC03350 
M 1C0336Q 
M1C03370 
MIC03380 
M1C03390 
MIC03400 
M 1C03410 
M1C03420 
M 1C03430 
MC03440 
M1C03450 
M  1C03460 
M 1C03470 
M  1C03480 
MIC03490 
HIC03500 
M IC03510 
M IC03520 
M 1C03530 
M1C03540 
M1C03550 
M1C03560 
M 1C03570 
M1C03580 
M1C03590 
M IC03600 
M  1C03610 
M 1C03620 
M IC03630 
M IC03640 
M IC03650 
M  1C03660 
M1C03670 
M 1C03680 
MIC03690 
M IC03700 
H1C03710 
MIC03720 
M  1C03730 
M 1C03740 
M  IC03750 
M1C03760 
M1C03770 
MIC03780 
M1C03  790 
MIC03800 
M1C03810 
M1C03820 
M1C03E30 
M1C03840 
H1C03850 
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544  CONTINUE 
3 14  CONTINUE 

C  INITIALIZE  AVAILABLE  RESOURCES 

OC  132  J*1,NSH0P 
132  AR I  J )  *C  AP I J ) 

C  INITIALIZE  INTENSITY  MATRIX 

DC  244  I *1 ,NNCDE 
Z  1 1  1*0. 

PCVII  )*C. 

244  TLU (I  )  =  0  • 

C 

C  PUT  ACTIVITIES  WITHOUT  PREDECESSOR  INTO  READY  LIST 

NACTIV*0 
NRE ADY*0 

OC  112  1*1, 1  TURN 
1 F ( NP ( I  I.NE.Ol  GO  TO  112 
C  IF (  ITYPE(I).GT.A)  GO  TO  2112 

1F(!TYPE(I).GE.3)  GO  TO  2112 
CALL  A00L{I,PRI,IKEADY,NREA0Y) 

GC  TO  112 
2112  T  ST  ART ( 1 )*C • 

TF1MSCII*C. 

C  If  (  1TYPEI  1 )  .EQ.5)  TFINISC  II  =*DUF  (II 

CALL  A0CL(  I  ,PR I , IACTIV.NACT1V) 

CALL  SCHF0(2500+I ,TFINIS( II  I 

zm*zum 

112  CONTINUE 

#«***«4*<!*  START  SIMULATION 


GCTD  810 

GET  THE  NEXT  EVENT  FROM  THE  LIST 

41  CALL  RMVICCCE, TIME, LAST, CLOCK) 

Eli K*T I ME “CLOCK 
CLOCK *T IRE 

IFILAST.EQ.3)  HR  1 TE I 6 ,*) • TIME  LIMIT  EXCEEDED* 

♦  ,  MIME*',  CLOCK,*  CODE*  '  ,CODE 
IF ( LAST  .GE  .2 )  GOTO  91 

CEDE*  0+  :  START  OELAYED  FOLLOWER  CF  A  MILESTLNE. 

CODE  =  250G  +  :  AN  ACTIVITY  HAS  F1N1SHEC.  START  FOLLOWERS. 
CCDE=5300*  :  FLOW-TRANSFERRED  FOLLOWER  START 
CCDE=75CC*  :  CAPACITY  IS  CHANGED. 

CODE  =8000*  :  REPORTING  DATE 

IFICOCE.LT. 2500)  GOTO  51 
IFICOCE  .IT. 5000)  GOTO  61 
IF  (CODE  .IT  .  7500  )  GOTO  71 
IFICOCE .LT. 8000)  GOTO  222 

REPORTING  DATE  ...  REPORT  RESOURCE  AVERAGES 

WRITEI6.R)  ’REPORTING  EVENT.  TIME  IS*, CLOCK 
CALL  ACCL'MUI  AS,WCSHOP,NSHCP) 


M 1C03860 

MIC03870 

M IC03880 

M  1C03890 

M IC03900 

M  IC03910 

M 1C03920 

M IC03930 

M 1C03940 

M1C03950 

M 1C03960 

M1C03970 

MIC039B0 

M 1C03990 

M 1CC4000 

H 1 C  04  010 

M1C04020 

M ICC4030 

M  1C04040 

M  1C04  050 

M1C04060 

M  1C04070 

M  1C04080 

Ml  CO 4 090 

MIC04100 

MIC04110 

MIC04120 

M1C04130 

MIC04140 

M1CC4150 

MIC04160 

M1CC4170 

MIC04180 

M1C04  190 

M1CC4200 

HIC04210 

M1CG4220 

M1C04230 

M1C04240 

M  1CC4  250 

MIC04260 

M1C04270 

M1C04260 

M1CC4290 

M  1C04  300 

M1CC4310 

M  1CC4  320 

M1CC4330 

M1C04340 

M1C04350 

M  1CC4  3t>0 

M  IC04370 

M IC04380 

M1CC4390 

M1C04400 
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710 

T  1 A  S  =  CLCCK 

M 1C04410 

DEL T*CLCCK-T ACCOM 

M ICC4420 

IF ( CELT  »EQ .0  •  )  GOTO  713 

M1C04430 

c 

M  1CG4440 

c 

CALCULATE  AVG.  RESOURCES  USEO  BETWEEN  DELT 

M ICC4450 

DO  711  IRES=1,NRES 

M1CC4460 

711 

ACCWC(IRES}«ACUMRS(1RES)/DEL7 

M1C04470 

DO  712  ISHCP=1.NSH0P 

M1CG4480 

TOTMHR(ISHOP) =TOTMHR ( I SHOP ) +ACUMSP ( I  SHOP ) 

MIC04490 

712 

ACSHOP (  I SHOP  )=ACUMSP( 1  SHOP) /DELT 

M1C04500 

T  ACCUM  =  CLOCK 

MIC04510 

c 

M1CC4520 

c 

WRI TE (25 ,714  )  (  ACCWC(  IRE S ) , I  RE S =1 .NR E  S ) 

M1C04530 

WRITE(26,714)  (ACSHOPUSHOP  ),1SH0P  =  1  ,NSHUP) 

MIC04540 

7 14 

FORMAT ( 101 e) 

MICC4550 

713 

CONTINUE 

MIC04560 

DC  716  IKES=1»NRES 

M1C04570 

716 

ACUMR  S ( IRES ) =0 . 

M 1C04580 

DC  717  I SHC'P  =  1  fNSHOP 

M1C04590 

717 

ACUMSP( ISHCP)=0. 

M1CC4600 

IF ( LAST .E  Q  •  1 )  GOTO  £1 

M1CG4610 

GOTO  41 

M1CC4620 

c 

M ICC4630 

c 

START  A  CELAYEO  FOLLOWER  OF  MILESTONE 

MICG4640 

51 

I  =CCDE 

HICG4650 

CALL  ADDL(1» PR 1,1 READY  ,NREADY  ) 

M1CG4660 

IF(LAST.EQ.l)  GOTO  81 

M1C04670 

GO  TO  41 

M1C04680 

c 

MIC04690 

c 

ACTIVITY  IS  FINISHED  .RELEASE  RESOURCES  AND  UPDATE  THE 

M1C04700 

c 

STATUS  CF  THE  FOLLOWERS. 

MICC4710 

c 

MICC4  720 

61 

I=CCDE-2500 

M1C04  730 

PC0V=1. 

M1CC4  740 

LENGTH=LENGTH+1 

M1C04  750 

MIC04  760 

IFUIAS.LT.  CLOCK)  CALL  ACCUM ( T I  AS ,WC SHUF ,NSHCP ) 

MIC04770 

MIC04780 

c 

RELEASE  RESOURCES 

M1C04790 

NRS  =AN’JM  (  I  ) 

M1C04600 

IF(NRS.EC.C)  GOTO  25 2 

M1C04S10 

DC  201  K=1,NRS 

M1C04620 

L*WCSHOP(ASHOP(I»K)) 

MIC0483C 

AR(L)«AR(L)4A(I,K)«2(  1) 

M  1CC4840 

201 

CLNTINUE 

M1C04850 

252 

CONTINUE 

M  1C04660 

c 

M  I C  04  8  70 

c 

CHECK  THE  TYPE  OF  THE  ACTIVITY 

M  1C0488C 

IF (  ITYPE ( 1 ) .NE.2)  GOTO  212 

M  ICC489C 

c 

ACTIVITY  IS  A  TEST 

MIC04900 

c 

ORON  A  RANDOM.  NUMBER 

M  ICC491C 

CALL  RAND(NRANO.URAND) 

M1CG4920 

1K=TRANK (I ) 

M IC04930 

IFdRANO.LC  .TATTR(  IK,1))GCT0  212 

M1CC4940 

c 

FINC  THE  REPAIR  TYPE  NEEDED 

M 1CC4950 

C 
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CALL  RANO(NRANO.URAND) 

H1C0496C 

SET=TATTR(1K,4) 

H IC0497C 

1MSET.LE.C.)  GOTO  212 

H1C0498C 

DO  202  L*1  *2 

H IC0499C 

IF(LRANO.LE.SET)  GCTU  414 

H1C05000 

SE?*SET*TATTR(1K,L44) 

H  1C0501C 

2C2 

CONTINUE 

H IC0502C 

41* 

K  =  T  POLL ( IK  ,L  ) 

H 1C0503C 

1 TYRPR=L 

H1C05040 

UPOATE  THE  STATUS  OF  THE  FOLLOWER 

M 1C0505C 

STATUS(K)=STATUS(K)-1 

H 1C 05 060 

IMSTATUS(K)  .GT.O)  GOTO  241 

8 1C05070 

FIND  THE  TYPE  OF  THE  ACTIVITY 

H1C0508C 

IF(  ITYPE(K) «LE • 2  )  GOTO  30fc 

M 1CC5090 

IF (  ITYPE(K) .E0.5)  GOTO  506 

H1CC5100 

IF ( 1TYPEIK )  •EQ*9)  GOTO  406 

H1CC5110 

306 

CALL  AOOL(K,PRI,IREADY,N READY) 

H 1C05 120 

GCTC  241 

H 1C05130 

4C6 

TST  ART { K ) =CLGCK 

HICG5140 

TFIMSIK  ) *CLOCK 

H1C05150 

CALL  ADOLIK  ,PR1  ,IACT1 V.NACT1V) 

H1C05160 

CALL  SCHED(2500*K,CL0CK) 

H1CC5170 

2(K  )«1. 

H1CC5180 

GOT C  241 

HIC05190 

5C6 

ADUF=DUMK)  ♦CLOCK 

H1C05200 

CALL  SCHE0(2500*K,ADUR) 

H ICG5210 

TSTART ( K )* CLOCK 

HICC5220 

CALL  AD0UK.PR1  ,  IACT1V.NACT1V) 

H 1C05230 

TFIM  S(K)=APUR 

8 1CC5240 

Z  (K  )  *1 . 

H1C0525C 

241 

CONTINUE 

81CC5260 

UPDATE  THE  ATTRIBUTES  OF  TEST  FOR  NEXT  OCCURANCE 

8 1C09270 

TATTR(IK,1)«1. 

H1C05280 

DUR ( I )=1 

H1C05290 

FIND  EXPECTED  DURATIONS  OF  REPAIR  AFTER 

TEST 

H 1CG5300 

DG  584  L*l,2 

8 IC05310 

PK0E(L)*TATTR(1K»3*L) 

H ICG5320 

K  =T  POLL (  IK  »L  ) 

8 1CG5330 

RCUP ( L ) =C . 

H1C05340 

1F(K.E3.C)  GOTO  594 

H1CG5350 

RDUR(L) =CUR (K  ) 

81CC5360 

NBA  =  TC { I ) 

MICG5370 

585 

I  S=FPCS (K)41 

81CC53BC 

NBK-TC(K ) 

8  ICC5390 

ChtCK  IF  TO  NLOE  OF  FGLLUWER(K)  IS  EULAL 

TO  TO  NL’Cf  LF  Tt  ST 

8 I  CCS  400 

IF (N2A.EG.NBK )G0  TO  584 

8 1CG5410 

RCUF(L)=R0UML)4DUR(K  I 

H 1CC5420 

K=FfLL( IS) 

M  ICC5  4  30 

GCTC  595 

Y ICC5440 

584 

CONTINUE 

H1CC5450 

E CUF (  I) =  FDLR (  ITYRPR) 

HICC546C 

TFINISt I  )=FDUR (ITYRPR )4C LOCK 

H1CC5470 

GCTC  144 

HICC5460 

212 

CONTINUE 

H ICC5490 

Y ICC5500 

C 
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UPDATE  THE  STATUS  OF  THE  FOLLOWER 

M  1C05  510 
M1CC552C 

NPF  =FPQ  S ( 1 J  +  l 

M IC05530 

KPF  =NF  (  I  l  +  FPOSU  ) 

M IC05540 

IF(RF(I J.EC.01  GOTO  144 

MICG5550 

DC  24  L  =NPF  ,KPF 

M IC05560 

IFtCTRANF(L)  .NE.l)  GOTO  24 

MIC05570 

K=FCLL(L) 

M 1CG558C 

STATUS(K)=STATUS(K)-1 

M  1C05590 

IFISTATLS(K).GT.O)  GOTO  24 

M1CC5600 

RELEASE  FOLLOWER 

MIC05610 

1F<  ITYPE(K)  .LE.4  )  GOTO  30 

M1CG5620 

IF  I ITYPE(K).EQ.5>  GOTO  50 

M IC05630 

IF ( ITYPE(K)  .EQ.7)  GOTO  45 

M1CC5640 

IFC ITYPE(K)  .EG. 9)  GOTO  40 

M1CC5650 

WR 1  TE ( 6  »* ) *1  TYPE  ERROR  FOR  ACT  •  ,K  ,  • I T YPE CK  l  = », 1 T YPE ( K  ) 

M  ICG5  660 
M  ICC56  70 

FGLCWER  IS  A  NCKAL  ACTIVITY 

MIC05680 

30 

CONTINUE 

M1CC5690 

IF  <  ISKTCH.EC.l)  THEN 

MICC5700 

DELAY  THE  FOLLOWER  OF  MILESTONE  THAT  HAS  PREDEFINED  DATE 

M1C05710 

CALL  SCHED(K,DMILE) 

M1C05  720 

Gl  TO  24 

M ICG5730 

END  IF 

MIC05740 

CALL  ADDL IK  ,PRI , IREADY.NREAOY) 

M  IC05750 

GOT C  24 

M IC0576C 

DUMMY  ACTIVITY 

M1CC577G 

40 

TSTART(K)=CLOCK 

M1C05780 

TFINIS(K)=CLOCK 

M1C05790 

CALL  ADDL(K,PRI,IACT1V,NACT1V) 

M1C05800 

CALL  SCHEDI2500+K, CLOCK) 

M  ICC5810 

2  (K  )  =1 . 

M I C05820 

GOTO  24 

M 1C05830 
M  ICC5840 

ARRIVED  AT  A  MILESTON-EVENT 

M IC05850 

45 

CONTINUE 

M 1C05860 

TMILE(MILE(K))=CL3CK 

MIC05870 

TSTARTI K  )=CLOCK 

M1CC588C 

TFINI S(K  )  =  CLOCK 

M  IC05890 

DPI LE  =OUR (K  I 

M1C05900 

IF(TM1LE(M1LE (K)  )  .LT.DMILE)  1SWTCH=1 

M ICC5910 

GOTO  24 

M  IC0592C 
MIC0593G 

•CELAY"  ACTIVITY 

M1CC5940 

50 

ADUF=DUR(K)+CLOCK 

M  ICG5950 

TSTART(K)=CLOCK 

MICC596C 

TFIMS(K)  =  ADUR 

M  IC05970 

2  (K  )  =  1. 

M1CC5960 

CALL  SCHED{2500«K,ADUR) 

M1C0599C 

CALL  AOCL (K  ,PRI , I ACT  1 V,NACT IV) 

M ICGfcOOC 

24 

CONTINUE 

MICOfcOlC 

I  SwTCH  =  G 

M  lCCt020 

144 

CONTINUE 

M  ICGt  030 
M  1C0604C 

UPDATE  ACTIVE  LIST 

M  1CC6050 

F  lit :  M ICC  RG  FORTRAN  A 


VM/SP  CMS  RELEASE  3.1.E  bt»H12,  CFC  -  U.C.  BERKELEY 


CALL  CAKCEL(I»IACTIVtNACTIVJ 
IF(LAST.EQ.l)  GOTO  81 
GOTC  41 
C 

C  FLOW-TRANSFERRED  FOLLOWER  CAN  BE  STARTED 
C 

71  I *CC0E~5OOO 

IF(NFU).EC.O)  GOTO  302 
NPF  *  FP0S(I)+1 
KPF  =  FPCS ( 1 )  +  NF ( I ) 

DO  301  L=NPF  »KPF 
K=FCLL(L) 

STATUSCK)=STATUS(K)-1 
IF(STATLS(K).GT.O)  GOTO  301 
1F(CUR(K  ).LE.O.)  GOTO  391 
CALL  ADDL(K»PRIt  IREAD Y#NREADY ) 

GCTC  301 

391  CALL  AODLCK  ,PRI .1 ACTI V ,NACT I  V ) 

CALL  SCHED I 2500+K  •  CLOCK! 

TSTART(K)*CLOCK 
TFINIS(K)=CL0CK 
2  CK ) ®2U  CK ) 

301  CONTINUE 

3C2  IF(LAST.EQ.l)  GOTO  ei 
GCTC  91 
C 

C  LAST  EVENT  AT  CLOCK.  ACCUMULATE  RESOURCES  USED 

C 

El  CALL  ACCUM(TIAS,WCSHOP,NSH0P> 

LAST  =0 

C  CHECK  FOR  END  OF  SIMULATION 

C  MODIFIED  NOT  TO  WRITE  AVG .  RES  FOR  THE  LAST  PERIOD*.. 

C  eiO  IF(NREAOY.EQ.O.ANC.NACTIV.EQ.O)  GOTO  71C 

eio  IF(NREAOY.EQ.O.AND.NACTIV.EQ.O)  GOTO  91 

C 

eel  CONTINUE 

IFINACT I  V.EQ.O)  GO  TO  870 
C  CHECK  THE  ASSIGNMENT  POLICY 

IFURAPCL.NE  .2!  GO  TO  870 
C 

C  UPGRADING  AND  DOWNGRADING 

C  . . . - 

c 

CC  146  I  =  1 »NACT I  V 
K=IACTIV(1 ) 

IF  t  I  TYPE  CKJ.GT.2)  GO  TO  146 
ZMt  X  =Z { K  )-ZL  (K  ) 

I F ( ZMEX  . LE  .0  • )  GO  TO  146 
ZNEW*ZL (K) 

C  A CD  UP  RELEASED  RESOURCES 

NPS=ANU*MK) 

DC  148  L*1,NRS 
J=WCSH3P(ASH0P(K  ,L  ) ) 

14M  AR(  J)=AMJ)*A(K,L)*ZMEX 
CALL  RE  SCHCtK  »ZN£W»AR  ) 


M 1CC606C 
MIC0607C 
MICC6080 
M1CC6090 
Ml COt 100 
M1C06110 
M1C06120 
M1CC613C 
MICC6140 
MICG615C 
M ICCt 160 
M 1CC6170 
M1C06180 
MIC06190 
M 1CC6200 
M  IC06210 
M1CC6220 
M  ICCL230 
M1CC6240 
M1CC6250 
M1CC6260 
MICC6270 
M ICCt 260 
M 1 CCt  290 
M ICG6  300 
M ICCt  310 
M1CC6320 
M1CC6330 
M1CC6340 
M 1CC6350 
M ICCt 360 
M1CC6370 
M ICCt 380 
M !CCt390 
M ICCt  400 
M ICCt  410 
M  1C06420 
M ICCt  430 
M 1C  Ct  440 
M ICCt 450 
M ICCt  460 
M ICC6470 
M  ICCt  4b0 
M  I  CCt  490 
MICCtSOO 
M  JCC651C 
M  1CC6S20 
M 1C  06530 
M 1CC6S40 
M  1CC65S0 
f  1CC6660 
M  lCot57C 
M I C  Ct  580 
M ICCt 690 
MICCttOO 
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1*6 

CONTINUE 

H ICC6610 

H1CC6620 

IJl. 

mm 

INTENSITY  UPGRADING 

H1C06630 

V 

*7^ 

H ICGt6*0 

H  V 

8  70 

CONTINUE 

H1CC6650 

P.*.' 

NRUN=1 

HICC6660 

r/* 

882 

CONTINUE 

H1CG6670 

M  =0 

H1CC6680 

& 

IF (NACT IV. f 0.0)  GOTO  531 

H1C06690 

m 

HICC6700 

DO  151  I  =1  »N AC  T  1 V 

H 1006710 

■> 

K  =  I  ACTIVd  ) 

HICC6720 

•* 

IFUTYPE(K).GT.A)  GOTO  151 

M1C06730 

IF ( Z( K  J  .EQ.ZU(KJ)  GOTO  151 

H 1C06  7*0 

IF ( NRUN  .E Q .2 )  GOTO  190 

H1C06750 

■ 

IF  C  L  S ( K  )  .GT.TFINIS(K) )  GOTO  151 

HICC676C 

190 

CONTINUE 

H IC06770 

M=M*1 

H1CC6780 

1REV(H) =K 

M1CC6790 

'V 

DRV (M )=LS(K)-TF INISIK ) 

HIC06800 

151 

CONTINUE 

H1C06B10 

- 

531 

CONTINUE 

H  1C06820 

H 

MTUFN=N 

H  ICC6630 

IF(NREADY.EC.O)  GOTO  532 

H1CC68*0 

DC  6*1  1  =  1  .NREADY 

HIC06850 

M  =M  +  1 

H 1CC6860 

J=1RE ADY ( I ) 

H1CC6870 

lREV(K) =J 

H 1CC6880 

II 

6*1 

DRV(M)=LS(  JJ-CLOCK-DURU) 

MlC0b890 

532 

CONTINUE 

H1C06900 

-  ’ 

IF(R.EQ.C)  GOTO  200 

H 1C06910 

H1C06920 

SET  PRIORITIES  ACCORDING  TO  DRV (LATE  NESS 

SCORE  ) 

HIC06930 

r‘ , 

CALL  SORT(CFV,NPRI,M»*NC WRITE’) 

M1C069*0 

i  < 

■ 

H1CC6950 

DO  161  1=1, M 

H 1C06960 

HICC6970 

J  I  =  NPR I  (  I  ) 

H  1C069B0 

JK  =  IREV(JI  ) 

H1CC699C 

ZMEX=ZU( JK)-Z(JK) 

H1CC7000 

H 

1F(DUR( JK) .LE.O)  GOTO  559 

H 1C 070 10 

PC0V  =  PCV(JK)4(CL0CK-TLU(JK)  )*Z  ( JK  J/DUM  JK  ) 

HICC7020 

559 

IF(CUR(JK).LE.O)  PC0V=1. 

H 1C07030 

{■. 

IF (NRUN  .EQ.2 )  GO TG  571 

H IC07040 

1F(LS(JK).LE .CLOCK)  GOTO  571 

M IC0705C 

ZC={< (l.-PCOV)*DUR( JK ))/(LS< JK) -CLOCK ))- 

Z(  JK) 

H 1 CC7060 

1F< ZHEX  .Cl  .ZC)  ZHEX=ZC 

H 1CC7070 

■ 

571 

CONTINUE 

H 1C07060 

H1CC7090 

NR  S  =ANUH I JK ) 

H1CC7100 

IF (NKS.EO.O)  GOTO  96 

H1CC7110 

v. 

DC  171  L=1,NRS 

H  1CG7120 

£ 

J=WCSH3P(ASH0F (JK,L)) 

H1CC7130 

£ 

IF ( A( JK ,L) .LT..0001)  GOTO  171 

H  1CC7  1*0 

1 

Z AW  =AR ( J  ) / A ( JK  , L  ) 

P 1CC7150 

s.' 

O  U  u  u  u  u  u  o  u 
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IE(ZMEX.GT.ZAR)  ZMEX  =  ZAR 
171  CCN7INUE 
96  CONTINUE 

IFIZMEX.LE.0.01 JGOTO  161 
ZKER=ZMEX+Z< JK) 

CHECK  PREDECESSORS 
lF(RPlJK) .EG.O)  GOTO  310 
ISTART=PPOS( JK)*1 
IEND  =  NP(JK  J+PPCS ( JK ) 

CHECK  FLOW  TRANSFERS 
DC  210  IP0S=ISTART,1END 
1FICTRANPI IPOS) .EQ.l)  GOTO  210 
IK=PRED( IPOS) 

IF(TFINIS(1K).LE. CLOCK)  GOTO  210 
IF ( CUR ( JK ) .LE .0 )  GOTO  210 

ZPAXI=0UR(JK)*(1.-CTRANP( IPOS ) -PCOV )/ t TF 1 M S ( 1 K ) -CLOCK ) 

IFIZMAX 1 .LT.ZNEH  )  ZNEW=ZMAXI 

ZPEX=ZNEK-Z(JK) 

210  CONTINUE 
310  CONTINUE 


IFIZNEH.LT.ZLUK))  GOTO  161 
UPDATE  AVAILABLE  RESOURCES 
IFINRS.EC.C)  GOTO  196 
DO  172  K  =1 ,NRS 
L=W CSHOP (A SHOP ( JK  ,K ) ) 

AR(L)=AR(L)-A(JK,K)*ZMEX 
172  CONTINUE 
196  CONTINUE 

RESCHEDULE  FINISH  AND  PROGRESS 

IF « JI.LE.MTURN)  GOTO  115 
C  FOR  NEWLY  SCHEDULED  ACTIVITIES 

CALL  CANCEL ( JK , 1REA0Y ,NRE ADY ) 

CALL  AODU  JK.PRI  ,  l  ACT  l  V  ,N  ACT  I V  ) 

TSTARTl JK)*CL0CK 
TLU(JK) =CLCCK 
116  CONTINUE 
C 

IFIZNEW.EQ.Z ( JK) )  GGTG  161 
CALL  r=SCHU( JK,ZNEW,AR) 

161  CONTINUE 
C 

200  CONTINUE 

IF  INRUN. EC. 2)  GOTO  41 
C 

C  RESCHEDULE  TRULY  SLACK  ACT'S  IF  CRITICAL  ACT.  DELAYED 

C 

CALL  CRITIC IZU,PR  I ) 


M  1CC7161 
MIC0717I 
HICG716I 
H1CC7191 
H1CG720I 
H1CO7210 
H  IC0722C 
H  ICC 7 230 
H1C07241 
K1C0725C 
P1C0726C 
H  1C0727C 
H1C0728C 
M 1CG729C 
H1C0730C 
H1C0731C 
M  1C0732C 
H IC0733C 
M1C0734C 
PICC735C 
M 1CC736C 
H1CC737C 
K1CC738C 
H1C0739C 
H  1C07400 
H 1C3741C 
P1CC742C 
M  1C07430 
M1CG7440 
M ICC7450 
M1C07460 
H ICO  74 70 
HIC07480 
M 1CC7490 
H 1CC7500 
HIC07510 
MIC07520 
H ICC7530 
H 1CC7540 
M1CC7550 
PIC07560 
P  ICC7570 
P  ICC 7580 
P  ICC  7590 
M I  CO  7 600 
P  1CG761Q 
H  1CC7620 
H  1CC7630 
P1CC764C 
P  1C07650 
P  IC07660 
PICC7670 
PICC7680 
H  1CC769C 
PI  CO  7700 
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GOTO  882 

PICC7710 

c 

P  1CC7  720 

c 

RESOURCE  CAFAC1TY  CHANGE 

P  1C07730 

c 

P 1C077AO 

222 

CONTINUE 

M 1CC7750 

K=CrDE-7500 

P1CG7760 

DO  1121  1=1 fNSHOP 

M  ICC7770 

AR(  1)=ARU  HOUCK,!  )-CAP{  1) 

P 1CC7780 

CAP (I)=C1C(K|1) 

PICC779G 

1121 

CONTINUE 

P  1CC7800 

C 

P  !CC7blO 

C 

SEARCH  IF  THERE  IS  ANY  CAPACITY  VJOLAT1LN 

P 1CC7820 

DO  1131  1=1  iNSHOP 

P  1CC7830 

IF(AR(1  l.LT. -O.Oll  GOTO  11*1 

P1CG78*0 

1131 

CONTINUE 

h  1CC7650 

1231 

continue 

M1CC7860 

IF(LAST.EQ.l)  GOTO  El 

M  1CC7870 

GOTO  *1 

P1CC7880 

C 

P1CG7890 

C 

DOWNGRADING  intensities 

P 1CC7900 

c 

P1CC7910 

c 

CREATE  LIST  OF  ACTIVITIES  TO  DOWNGRADE 

M1CC7920 

1 1 A 1 

CONTINUE 

P1CC7930 

WRITE  (6,*)  INTENSITY  DOWNGRADING  TRIED  * 

P1CC79A0 

M  =  0 

P  1CG7950 

DO  1151  1=1,NACTIV 

M1CC7960 

K=1ACTIV(1 ) 

M 1C07970 

IF ( 1  TYPE (K1.GT.4)  GOTO  1151 

MICC7980 

IF ( Z ( K )  .EO.ZL(K))  GOTO  1151 

P1CC7990 

M=M*1 

P ICCb 000 

IREV(P) =K 

H1C08010 

DRV (M  )  =  TFINI S(K )"LS(K  ) 

M1CCE020 

1151 

CONTINUE 

M1CC6030 

IFIM.LE.O)  GOTO  37 

M 1CC8 040 

CALL  SORT(CRV,NPRI,M, •NGWRITE' 1 

P 1CG8050 

ZL0R=1. 

P1CG6060 

1  IRON  =  1 

P !COb070 

CALL  DWNGRCEM.ZLOW.Z. 1 IRUN.PRI) 

MCGE080 

C 

M ICC8090 

1F( JFLAG.EC.O)  GOTO  1231 

PICCfclOO 

C 

PICC8110 

C 

IMERUPT  ACTIVITIES 

M ICCb 120 

37 

CONTINUE 

MICC8130 

K=0 

PlCCbHO 

DC  2152  1  =  1 »NAC T  1 V 

P ICCb 150 

K  =  1  AC  T I V  <  1  ) 

P ICCb 160 

IF ( ITYPE(K).GT.A)  GOTO  2152 

H ICCb 1 70 

IF(Z(KJ.LE..0001)  GOTO  2152 

piccbieo 

M=M-*1 

P1CC8190 

1REV(H) *K 

P lC0b200 

DFV(M)  =  TFIMS(K)-LS(K) 

P ICG8210 

2152 

CONTINUE 

P  1CC8220 

1HP.EQ.C)  GOTO  1173 

P  1CC8230 

CALL  S0RT(CFV,NPRI.M.*N0WR1TE'  1 

P  KCb2<tO 

zlor=o. 

P1CGB250 

n  o  nnn 
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IIRIN=2 

CALL  DWNGRC(M,2LCW,2, IIRUN,PRI ) 

GCTC  1231 
C 

1173  CONTINUE 

C  THEFE  IS  NC  ACTIVITY  AVAILABLE 

WKITE(6,*) ‘NO  ACT  AVAILABLE  IN  DCWNGK AD ING  ..  .LUGI CAL  ERROk..* 
STOP 

END  OF  SIMULATION 


91  WRITE ( 6  »*)  *  END  OF  SIMULATION.  TIME  IS  •, CLOCK 

WRITE  OUTPUT  FILES 
IF(NMILE.EC.O)  GO  TO  95 
DO  99  I  *  1 »NM I LE 
I I=TM ILE ( I  )-l 
IF(II.EO.-l)  11=0 
CALL  DC0NVU1  *1M1LE) 

SMILE  (I)  =  IMILEmclOOOO*IMlLE(2)*10CMMILE  (3) 

99  CONTINUE 

WRITE  15  7, 71<r)  (SMILE!  1),I=1,NMILE) 

WRITE (2 7,719)  ( TMI LE ( I ) , I =1 , NM I LE  ) 

C 

95  f,SHCPP=NSHOF  +  l 
A  TOT ( NSHOPP ) =0 • 

CC  5555  KKL  =  1  ,NSHQP 

ATOT  (NSHOPP  )  =  ATOT  (NSH3PP  )-*T3TMHR(KKL  ) 

5555  T0TMDY(KKL:=TCTMHR(KKL) 

TCTMDY(NSHCPP)= ATOT (NSHOPP) 

WRITE (28,719  )  (TOTMCY ( 1) , 1  =  1 , NSHOPP I 
C 

IF( 1CYCLE.GT.1)  GO  TO  2002 

IF( 1RAP0L.EQ.1)  WRITE (36,2003)  NAME , NCYCLE ,1  LOW , I LP 
I F ( 1RAPCL.EQ.2)  WR1 TE (36,2009)  NAME , NCYCLE , I  LOW , I  UP 
WRI TE (36  ,2005  )  SM3N  ,SDAY , SYR 
WRITE! 36  ,2006 ) 

C 

IF ( IC  ALO  .EG • 1 )  THEN 
CO  2000  1=1, NNODL 
KST ART=TST  ART ( I  )  +  .5 
KFINIS=TFlNlS(I)+.5-l 
IF(KFINIS.LT.KSTART)  KFINIS=K START 
IF  (ITYPE(  D.EQ.7)  THEN 
1 1 =MILE (I ) 

KSTART=TMILE(II)-1 
IF(KSTART.EQ.-l)  KS  T  AK  T  =0 
KF IN  I S  =  KST  ART 
END  IF 

IF ( I  TYPE ( I ) .EQ.9)  KST ART =KF INI S 
CALL  DCLNV(KSTART,CALN01> 

CALL  rCCNV(KF  INIS.CALND2) 

WRITE (36,2001)  I, FROM( I ) , TO ( I ) ,C ALND1 ,C AL NL 2 
2 COO  CONTINUE 
ELSE 


MICC82t 
M1C082I 
M1C0826 
M1CC8  29 
M1CC830 
N1CC631 
M1C0832 
MICC833 
M1C0839 
M1CC635 
MICC836 
M1C0637 
MICCe38 
M 1  COS  39 
M1C0890 
MICC891 
M  1CC8921 
M1C0893I 
M  IC0699I 
M1C08951 
MIC0896( 
M IC06  971 
M  1C0898( 
M  ICC699( 
M  1CC8  50C 
MICC851C 
M 1C0852C 
M1C0853C 
MIC0859C 
MICC855C 
M1CC856C 
M1C08570 
MICG8580 
r  1CC8590 
M ICC8600 
M 1  CCS  610 
MICC8620 
M 1CC8630 
M ICC669Q 
M 1CC8650 
MICC8660 
M1CC8670 
M ICC8680 
M  ICG8690 
MICCfc 700 
M ICCfc  710 
M  ICC8  720 
MICCfc  730 
M  ICCE  790 
MICCfc  750 
8 JCCb760 
MICGfc  770 
M 1  COE  780 
MICCfc 790 
M 1 C  Cfc  800 
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CO  2009  1=1 »NNQDE 

2009  WRlTE(3t,2008)  1 ,FROM( I ) ,T0( I ) ,T ST  ART (1) , TF INI S( I  ) 

EKD1F 

2002  CONTINUE 
C 

C  WRITE  RUN-STATUS  REPORT 
1F( ICYCLE.EO.l)  THEN 
WRITE  (<*0,1001 1  NAME 

1001  FCRMAT (A50) 

1 F ( I R APOL . EQ . 1 )  WR 1 TE ( 40, 1002 ) 

IF ( IRAP0L.EC.2)  WRI TE ( 40, 1003 ) 

IFINCYCLE.EG.l  )  WRI  TE(40,1004  I 
1 F ( NC  YCLE  . GT  •  1 1  WRI TE ( 4 0, 1005 )  NCYCLE 
IF(NTEST.EQ.O)  WR 1TE (40 ,1006  I 
IF(NTEST.EO.l)  WRITE (40 ,1007) 

WRITE! 40,1009)  NNOOE , IT  URN ,NRE S ,NSHOP , ILDW ,  IUP  ,K TE NO ,NCC ,NRE PDT , 
«  ISCFIN.NM1LE 

endif 


1002  FORMAT ( 'INTENSITY  ASSIGNMENT  POLICY 
10C3  FCRMAT( ’INTENSITY  ASSIGNMENT  POLICY 
1CC4  FORMAT ( *N0  SIMULATIONS 

1005  FORMAT! 'SIMULATIONS 

1006  FCRM AT ( 'TEST  ACTIVITIES  l  REWORKS 

1007  FCRMAT ( 'TEST  ACTIVITIES  l  REWORKS 
1009  FORMAT! 'NUMBER  OF  ACTIVITIES 


UPGRAOING  ONLY') 

UP  l  DOWNGRADING') 
1  CYCLE') 

',15,'  CYCLES') 

NL' ) 

YES') 

'.15,/ 


♦  'NUM.  OF  ACT.  (NO  REWORKS) 

♦  'NUMBER  OF  WORKCENTERS 

♦  'NUMBER  OF  SHOPS 

♦  'LOWER  BOUND  QF  INTENSITY 

♦  'UPPER  BOUND  OF  INTENSITY 

♦  'LIMIT  OF  PROJECT  FINISH 

♦  'NUMBER  OF  CAPACITY  CHANGE 

♦  'NUMBER  OF  REPORTING  DATES 

♦  'PROJECT  TARGET  FINISH  TIME 

♦  'NUMPER  OF  MILESTONES 
C 

REWINC  17 


.15,/ 

.  15,/ 

.15,/ 

.15,/ 

.15,/ 

,15,  »  (FUR  SIMULATIONS)'./ 
.15,/ 

.15,/ 

.15,/ 

,15  ) 


WRITE (17,1777)  NR AND 
C 
C 

2003  FERMAT(1H1,120(1H=),//,6X, 'PROJECT  NAME  :  ',A2C,15,'  RUN(S)', 

USING  UPGRADING  ONLY', 

+  *  INTENSITY  FANGE  ',15,»  -  ' , 1 5 , //, 1 2 C (  '=  •  ) ) 

2CC4  FERMAT  ( 1H1 ,120(1H=  )  ,//,6X  , 'PROJECT  NAME  :  »,A2C,15,'  RUMS)'. 

•»'  USING  UP  &  DOWN  GRADING', 

♦'  INTENSITY  RANGE  ',15,'  -  * , 1 5 , // , 1 2 C (  '  =  •  ) ) 

2CC5  FCRMAT ( 1H  ,'  PROJECT  START  DATE  :',315,/) 

20C t  FERMAT!'  ACT  1 V  I T Y •  ,20X , •  SCHEDULt',/, 

♦  '  INTERNAL  #',3X,»  1  • , 5X , •  J',4X, 

•*  'START  DATE  •  ,11X  , 'FINISH  DATE  • ,/ ,  70  (  •- •  )) 

2C01  FORMAT! 5X, 14 ,5X,A4 ,5X  ,A4 ,5X,3( IX, 12 ) ,  13X,3(1 X,  I  2  )  ) 

200b  FORMAT! 5X , 14 ,5X,A4  ,5X ,A4 , 7X ,F7.1 ,15X  ,F7.1  ) 

323  FORMAT! AB0,8(/49X,  16) ) 


1777  FCRMAT! 110) 


M 1C08810 
M1C0E820 
MlC0e830 
M 1C08840 
M 1C06850 
M  1C08860 
MlC0e870 
MICOb880 
M 1C08890 
M1C08900 
M1CGE910 
MlC0e920 
M 1C08930 
M1C08940 
M1C08950 
M1C08960 
M 1C06970 
M1C08980 
MIC08990 
M 1C09000 
M 1C09010 
M1C0902C 
M 1C09030 
M1C09040 
M1C09050 
M  1C09060 
M1C09070 
M  1C 09080 
M1C09090 
MIC0910C 
M1CC9110 
M  1C0912C 
MICG9130 
M  1CC9140 
M1C09150 
M1C09160 
M 1C 09 170 
M IC0918C 
M1C09190 
M1C09200 
M IC09210 
M1C09220 
M 1CC923C 
M1C0924C 
M1CC9250 
MIC09260 
M  1CC9270 
M  1CC92B0 
M 1 C  09  290 
M1CC930C 
M  1C  09  31 0 
M1CC9320 
M1C09330 
MIC09340 
M1C09350 
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951 

FORPAT (2014) 

PIC09  36< 

953 

FCRPATI20F4.2) 

MIC0937( 

C  954 

FCRP4T(4F10.1) 

P  1C0938< 

952 

FORPAT (6X,A4,2X,A4,3X,14,2X, 11) 

M1C09  39C 

C  952 

F0RPAT(6X,A4,9X,14,2X,I1) 

M1C0940C 

9fel 

FORPAT ( 5X  » 4 15 } 

PIC0941C 

9fc3 

FCRHAT ( 10F8 .2) 

PICC942I 

30C1 

FCRPAT ( lCFfi.2 ) 

P  IC09431 

1999 

CONTINUE 

P1C0944< 

9999 

STOP 

P ICC945( 

ENO 

¥  1CC946( 

PIC0947C 

M1C0948( 

M IC0949G 

SUBROUTINE  CANCEL ( I , I X,LX ) 

MIC0950C 

C 

THIS  SUBROUTINE  CANCELS  THE  INOEX(I)  FROM  THE  LIST 

(  IX) 

HICC951C 

C 

AND  UPDATES  THE  LIST  LENGTH  (LX) 

¥.  IC0952C 

DIMENSION  IX(IOOO) 

M IC0953C 

P 1C0954C 

IF ( L X . EQ  .0  I  GOTO  30 

M  1C0955L 

N  As  I 

MIC0956C 

DC  12  K  =  1 » LX 

P IC0957C 

IF(NA.EQ.IX{K)  )  GO  TO  22 

M1C0958C 

12 

CONTINUE 

P ICC959C 

C 

CODE  "I"  DLLS  NOT  EXIT  IN  THE  LIST. 

M1CC960C 

RETURN 

P1CC961C 

22 

LX=LX-1 

M1C0962C 

N  *K 

P  ICG963C 

OC  14  J=N,LX 

P  1C0964G 

IX  C J)=IX(J+1) 

¥ IC0965C 

14 

CONTINUE 

P1CG966C 

I X ( LX  +  1 ) =0 

M1C0967C 

30 

CONTINUE 

HICC968C 

RETURN 

M1C0969C 

ENO 

MIC0970C 

MIC09710 

MIC0972C 

SUBROUTINE  ADDL ( I ,PRI , I X , LX ) 

P1C09730 

C 

THIS  SUBROUTINE  ADDS  INDEX  (I)  TO  THE  LIST  (IX)  AND 

UPDATES  LIST 

M  1C09  7  40 

C 

LENGTH,  (LX) 

PICC975C 

DIMENSION  IX(IOOO),  IY(IOCO) 

P1C09 760 

INTEGER  PR  1 ( 2500 ) 

P1C09770 

PIC097OU 

N  A=  I 

MIC09  790 

IF(LX.EC.O)  GOTO  30 

PICOSfaOO 

DL  12  K  *1  ,LX 

P1C09810 

JA  =  I  X (K  ) 

P  1CC9820 

IF(FRKNA)  .LT.PRI(JA)  )  GOTO  20 

P 1CC9830 

12 

CONTINUE 

PICC9840 

LX*LXn 

P ICC985C 

IX(LX)=NA 

P 1CC9660 

GOTO  40 

P  JC09870 

20 

DC  14  J=F  , LX 

P  ICC9880 

14 

IY(J*1)=1X(J) 

P IC0969C 

IX(K)=NA 

M 1CC9900 
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LX=LX+1 

H=K-»1 

OC  16  J  =R » LX 
16  1 X (  U) *  1 Y ( J ) 
GOTO  40 
30  I X ( 1 ) =N A 
LX  =  1 

40  RETLRN 
END 


SUBROUT  1  Nt  SORT (Bl, PI ,KL I  HI T ,WRTCOD  ) 

C  THIS  SUBROUTINE  SORTS  A  VECTOR  Bl,  WHILE  RESERVING  ITS 
C  ORICINAL  ORDER  IN  VECTOR  PI.  THE  SUBRCUTINE  USES  THE 
C  "QUICKSORT*  METHOD. 


REAL  B C 4500 )  .VECCUT (4  500) ,B1(KLIH1T) 
INTEGER  P ( 4500 )  ,  POUT (4500) ,P1 (KL1M1 T  I 
CHARACTERS  WKTCCD 
DO  100  1=1 , KL  IM 1 T 
B  ( I  )  =B  1  ( I ) 

100  PCI  )  =  I 

ALIR  I  T  =  FLUAT (KL1HIT) 
ANUP=ALCG1C(AL1MIT)/ALOG10(2.) 

NUH  =ANUH 

I F ( ANUM .GT .NUM)  NUH  =NUM  +1 
MM=2*SNUM 
NRES1D=MH-KL1MIT 
OC  101  L=1 (NRES1D 

101  B(KLIHlTfL)=l.E10 
DO  fc  1*1, NUH 
K*2«l 

M=MH/K 
DC  4  J1=1,M 

L  ST  ART  =K* ( Jl-1 )  ♦ 1 
LEND*  LSTART+K-1 
K2= K/2 
K  1  =  0 

J2=LSTART 

1  1F(E( J2)  .LE.B(J2+K2))  GOTO  2 
VECCUT  (L ST ART-»K1)*B(J2-»K2) 
PCUT(LSTART*K1)=P(J2*K2  ) 

B ( J2+K2 ) =1 .E10 
K2=K2«1 
GC  TO  3 

2  P0UT(LSTART+K1)=P(J2) 
VEC0UT(LSTART4K1)=B( J2) 

B(J2)=1.E10 

J2* J2*  1 
K2=K2-1 

3  U3=J2-LSTART*1 

IF  ( J3  .C-T  •  (K/2  ) )  GOTO  31 
IF ( (J3+K27.GT.K)  GOTO  31 
K 1 =K 1 ♦  1 


M1C09910 
H 1C09920 
H  1C09930 
H  1C09940 
M1C09950 
H IC09960 
MIC09970 
M1CC9980 
H 1C09990 
H IC10000 
H 1C  10010 
M1C10020 
H IC 10030 
H IC10040 
H  1C10050 
MJC10060 
M1C10070 
HIC10080 
M 1C1009C 
H  1C10100 
M1C10110 
H1C10120 
H 1C  10130 
H  1C  10140 
H1C10150 
HlClOlbO 
H1C10170 
HIC10180 
n ic 10 190 
H IC10200 
H 1CI0210 
H  1C  10220 
MIC10230 
HIC10240 
H IC 10250 
HIC1026G 
H1C10270 
H  1C10280 
H1C10290 
H 1C10300 
H IC 10310 
H  1C10320 
H  1C  10  330 
HIC10340 
HIC10350 
HIC10360 
H 1C10370 
H  1C10380 
H 1C  10390 
¥  1C  1C  400 
M ]C 10410 
M1C10420 
M 1C  10430 
HIC10440 
H 1C  10450 
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CCTQ  1 

31  OC  32  L*LSTART .LEND 

IF(BCL) .GE.1.E10)  GOTO  32 
K1=K1-»1 

VECOUT(LSTART+Kl)=B(U 

POUmSTART*Kl)=P<U 

32  CCNT I NUE 
A  CCNT 1NUE 

OC  i  J*1 .KLIMIT 
P(J)*PLUT( J) 

5  B ( J ) =V£CCUT ( J ) 

6  CONTINUE 

OC  7  1*1, KLIMIT 

1F(WRTC00.NE.»N0HR1TE»  )  B1(I)=BU> 

7  P1CPC 11 1*1 
RETLRN 
END 


SUBROUTINE  PICK(P.K.KLIM) 

OIMENSICN  P(ICO) 

SET  =0  . 

DC  20  1=1, KLIM 
SET  =SET*P ( 1 ) 

CALL  RAND(NRANO.URANO) 

IF(URAND.LE.SET)  GOTO  30 
20  CCNTINUE 
30  K  =  1 
RETURN 
END 

FUNCTION  ENS (PS . ALFA) 

THIS  FUNCTION  CALCULATES  EXPECTED  NUMBER  OF  TRIALS  NEEDED 
A  TEST  ACTIVITY  TO  BE  SUCCESSFUL*  PS=FR0BAB1 LI TY  CF  SUCCESS 
AT  THE  CURRENT  TRIAL  AND  ALFA  CONSTANT  INCREASE  IN  PROBABILITY 
CF  SUCCESS  AFTER  EACH  FAILURE. 

ENS  *0 . 

PROS=PS 

PRUF*1. 

DC  10  1=1,20 
AC=FRCS$PRCF*I 
ENS  =  EN  S  +  AC 

IFIAD.LE. 0.001)  GOTO  20 
PROF =PRCF51 1  .-PROS  ) 

PROS=PRCS*ALFA 
10  CONTINUE 
20  RETURN 
END 


REAL  FUNCTION  XHE AN (PROe , VAL , NUM I 
DIMENSION  PROeilO),  VAL(IO) 

THIS  FUNCTION  CALCULATES  MEAN  OF  AN  ARRAY(VAL),  WITH 
PROFABILITIES  (PROP).  NUM  BEING  THE  NUMEER  OF  ELEMENTS 
IN  VAL 


H1C1046C 
M IC1047C 
M  1C  10  ABC 
MIC10*9C 
MIC1050C 
M1C1051C 
M1C1052C 
MIC1053C 
M IC105AC 
H1C1055C 
M IC1056C 
M 1C10S7C 
M 1C1058C 
M1C1059C 
M  IC1060C 
M  IC 10610 
M  1C1062C 
M  IC 10630 
M1C10690 
M1C10650 
M  1C1C66C 
M  IC 10670 
MIC  10680 
M 1C  10690 
M 1C1G700 
M1C10710 
M1C10720 
MIC1073C 
MIC107A0 
M 1C  10  750 
M 1C  10 760 
M1C10770 
H 1C  10  7bC 
MIC10  790 
MIC  10800 
MIC10810 
M  1C  10820 
M IC 10830 
M IC 10840 
M1C108S0 
MlClOBbO 
MIC10B70 
M  lClObfaO 
M 1C  10890 
MIC  10900 
MIC  10910 
M 1C  10920 
M 1C  10930 
M  1C1C9«.0 
MIC  10950 
M 1C  10960 
M 1C  10970 
M 1C  10980 
M  1 C  10990 
M1C11 000 


V  a"*  l'1  h'*  a  "  “  a  *  •  ••*•***  *  ■  *  ■  ’  '  *  ’  ' "a"  .  * 
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XMEAN=0  . 

DC  10  1=1, NUM 

10  XNEAN  =  XNEAMPR0B(I)5VAL(I  I 
RETURN 

ENO 

SUBROUT  IKE  AOJF IN ( EOUR  ,ATFI N ,NNODE 1 

DIMENSION  PCV(2500),  TLU12500),  TF  IN  1  S 1 2*00)  ,2  C  2*C0  ) 

DIMENSION  ATFIN(2*00) ,EDUR(2500) 

INTEGER  CUR ( 2*00 ) 

CCMKDN/BBB/  PCV , TLU »TF INI S,Z .CLOCK , DU R .LENGTH 

THIS  SUBROUTINE  FINOS  ADJUSTED  FINISH  TIMES  FUR  TARGET  FINISH 
CALCULATIONS. 

OC  10  I*1,NN0DE 

1F(TFINIS( I ) .EQ.99999.)  GOTO  11 
IF(TFINIS( I) .LE. CLOCK)  GOTO  11 
PC0V=PCV(1  )+CCLOCK-TLU(l ) )«Z( 1 )/DUR( 1 ) 

IF ( Z ( 1 )  .LE.O.  .AND.  PCOV.LE.O.)  GOTO  11 
ATF  IN  ( I  )=CLOCN-»EDUR(I  )-PCCV*DUR(I) 

GOTO  10 

11  ATF  IN  ( I  ) =TF IN  I S ( I  ) 

10  CONTINUE 

RETURN 

END 

SUBROUTINE  L SCHE D C DUR , TF I N1 S , 1 SCF I N ,  1 T YPE  ) 

THIS  SUBROUTINE  FINDS  EARLY  &  LATE  FINISH  TIMES  FOR  ACTIVITIES 
BY  CPM 

INTEGER  RANK(2*00),ITYPE( 2500 ) 

DIMENSION  EF (2*00)  .  OURI2500) 

REAL  LSI25C0)  ,LFNA , TF INI S (2*00 ) 

INTEGER  FOLL(10000),NF(2500) ,FP0S(2BCC) 

INTEGER  PRED ( 10000  ),NP (2500)  ,PPOS( 2 500 
DIMENSION  CTRANF ( 10000), CTRANPt 10000) 

C0MM0N/8B4/CTRANF ,CTR ANP 
C0MM0N/BB5/  LS.NNOOE,  RANK,  ITURN 
C0MM0N/BB6/PRED,  NP,  PPOS 
CCMM0N/BB7/FCLL,  NF ,  FPOS 

FCRNARD  ROUTINE 
F INI S  =  0  . 

I =R ANK ( 1 ) 

IF(TFlNISd)  .NE. 99999.)  GOTO  *0 
EF(  1)=0UMI) 

GOTO  60 

50  EF(  1)=TFINIS(1) 

60  CONTINUE 

DO  100  K  =2 , 1  TURN 
NA=RANK (K ) 

IF (TFINIS(NA) . EG. 99999.  )  GOTO  70 
EF (NA)*TFIN1S(NA ) 

GOTO  71 


GOTO 


HIC1101C 
M 1C11020 
MIC  11 030 
M 1C11040 
M1C11050 
Midi  060 
M 1C11070 
M  1C  11 080 
M  1C 11 090 
M1C11100 
M1C11110 
M  1C  11 120 
M1C11130 
M  1C  11 140 
M  1C 11 150 
M  1C  11160 
MIC 11 170 
M1C11180 
M1C11190 
MIC11200 
MIC11210 
M1C11220 
MIC 11 230 
MIC  11240 
M1C11250 
M1C11260 
M1C11270 
M1C11260 
MIC  11 290 
MIC11300 
MICH  310 
M1C11 320 
M 1C  11 330 
MlCll 340 
M1C11350 
MICH  360 
M 1C  11 370 
MIC11380 
MlCll 390 
MlCll 400 
M1C11410 
M1C11420 
M 1C 11 430 
MlCll 440 
MlCll 4*0 
MlCll 460 
M1C1147U 
MlCll 460 
MlCll 490 
M 1C  11 *00 
M 1C11 510 
MlCll  *20 
M 1C  11 530 
MlCll *40 
MlCll **0 


PS 


PS 


B? 


m 


m 
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70  CONTINUE 
ESNA*0. 

IF(NPINA).EQ.O)  GOTO  201 

JP1=PP0S(NA)*1 

JP2=PP0S(NA)+NP(NA) 

OU  200  Js JP1 * JP2 
EFDLR=OUR(NA) 

JA=PRE0( J) 

1F(FF0UR.GT.DUR( J A ) )  EFDUR=DUR ( JA ) 

EFC=EF{ JA)-(1.-CTRANP( J))$EFDuR 
ESNA=AMAX1(ESNA,EFC) 

200  CONTINUE 

201  CONTINUE 

EF (NA ) =E  SNA+DUR (NA ) 

1F( ITYPE(NA) .E0.7)  EF (NA) *E  SNA 

71  CONTINUE 

FIN1S-ANAX1(FIN1S,EF(NA) ) 

100  CONTINUE 

C  WRITE(24,12)  FINIS 

C  HR  I T£ ( 24  *494  )  (I*EF(I)*I -1 #NNODE ) 

C  12  FORMAT ( *  PROJECT  FINISH  TIME  *  »*F8.2) 

C 

C  BACKWARD  ROUTINE 

C 

1 F ( 1SCFIN.NF  .0.AND.ISCFIN.LT.F1N1SI  THEN 
WRITE  (6,*)  '$**=>*  ERROR  $*«*$*$• 

WFITE(6,<=) 'SCHEDULE  TARGET  FINISH  IS  LESS  THAN  FORWARD  FINISH' 
WRlTEtfc.Sl'TARGET  *',1SCF1N,'  FINIS  *  ',F1MS 
STOP 
END  IF 

IF ( ISCFIN.GT.O)  FINIS=ISCFIN 
C 

NA=FANK ( I TURN) 

L$(NA)=FIN I 5”DUR (NA ) 

IF ( ITYPE(NA)  .EQ.7)  THEN 
L  S  ( NA  )  =F  IM  S 

IF (LS (NA)  .GT.DUR(NA) .AND.EF(NA) .LT .CUR (NA)  )  LS(NA) =CUk(NA) 
IF(LS(NA).LT.DUR(NA))  THEN 

WR1TE(E,$)  •  $$  MILESTONE  DATE  FOR  NODE ' »NA 
WRITE(6,«)  •  IS  INACTIVE.  PROGRAM  WILL  USE  MORE* 

WR I TE (6  ,*  )  •  BINDING  DATE  AND  CONTINUE.' 

DUR(NA)=0 
END  I  F 
E  NO  IF 
K=1TJRN-1 
DL  300  0J=1,K 
KK  =  I  TURN” J J 
NA=FANK (KK) 

LFNA=FINIS 

1F(NF(NA).EC.0)  GOTC  401 
OF  1  =FP05 (NA ) +1 
JF2=FP0S(NA  )-»NF  (NA  ) 

OC  400  J=JF1 » JF2 
EFULR  =DUF (NA  ) 

JA-FOLL ( J ) 
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M1C1173C 
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HIC11750 
MIC1176C 
M1C11 77C 
M1C1178C 
M1C1179C 
M  I C 11 800 
MIC11810 
M1C1182C 
M1C11830 
M  IC 11 840 
M1C11850 
M 1  Cl 1 860 
MlClie70 
MIC  11880 
MIC11890 
M 1C  11900 
M1C1191C 
M  IC11920 
M IC 11 930 
M IC 11 940 
M 1C  1 1950 
M  1C119&C 
M1C1197C 
M 1C  11 980 
M  1 C 11 990 
M1C1200C 
M 1C12C1C 
M 1C  12  020 
M I C 12 030 
MIC  12  040 
M IC 12050 
K1C1206C 
M  IC12070 
M1C12080 
M 1C12C9C 
M  IC  12  100 
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IF ( 1  TYPE ( JA ) .EC  .  7  )  EFDUR=C 
IF(EFOUR.GT . DUR I  J  A  ) )  EFDUR=DUR ( JA ) 

LSC=LS( JA)+(1.-CTRANF( J))*EFDUR 
IF(LFNA.GE.LSC)  LFNA=LSC 

400  CONTINUE 

401  CONTINUE 
LS(NA)=LFNA-DUR(NA) 

C  SET  MILESTONE  DATE 

IFUTYPE(NA).EC.7>  THEN 
LS(NA)=LFNA 

1F(LS(NA)  .GT.DUR(NA).AND.EP(NA).LT.CUk(NA)  )  L  S  ( NA  )  =  DUR  ( NA ) 
IF(LS(NA).LT.DUR(NA)>  THEN 

WRITEI6,*)  •  MILESTONE  OATE  F UK  NUDE '  »N  A 
WRITE(C,$)  •  IS  INACTIVE.  PROGRAM  WILL  USE  MORE* 

WRITEIt,*)  '  BINDING  OATE  AND  CONTINUE.* 

DUR(NA)=0 
END  IF 
END  IF 

300  CONTINUE 

DC  60  1=1  ,NNODE 
IFlI.LE.l TURN )  GOTO  90 
LS(I)=DUR(I) 

GOTO  80 

90  LSI I)=LS(I )  +  OUR  1 1 J 

IF  1 1TYPE (1  I.E0.7)  LSI I)=LS( I ) “DUR 1 1 ) 

60  CONTINUE 

C  WR1TEI24.494  )  II  ,LSII ), 1  =  1, N NUDE) 

C  494  FCRMAT(5II8,F8.2)) 

RETURN 

END 

SUBROUTINE  CHECK  I XAF , IX) 

C 

C  THIS  SUBROUTINE  CHECKS  IF  CAPACITIES  ARL  VIOLATED. 

DIMENSION  XARI2001 
INTEGER  WCSH0PI200) .NSHOP 
C0MM0N/CC9/WCSH0P ,NSHOP 
IX  =  C 

OU  13  1=1, NSHOP 
IFIXARI I  ).LT.~.001)  IX=1 
13  CONTINUE 
RETURN 
END 


SUBROUTINE  CR1 T I C I ZU , PRI ) 

THIS  ROUTINE  DELAYES  "TRULY  SLACK"  ACTIVITIES  II  GET  RESOURCES 
ENOUGH  TO  START  CRITICAL  ACTIVITY  THAT  HAS  DELAYED 

DIMENSION  A(2500,70),AR(200) ,RNEEDI2CC) 

INTEGER  ASHCP 1 2500,70) .ANUM 12500) 

DIMENSION  ZL 1 2500)  ,212500 ),ZU(2500) 

C1MENSICN  T START (2500)  ,TF IN  I  SI  2500) 


M IC 12 11< 

M 1C  12 1 2 ( 

MIC1213I 

M1C1214I 

MIC1215I 

MIC1216C 

M  1C1217C 

MIC1218I 

MIC1219L 

M1C1220C 

MIC1221C 

M1C1222C 

M1C1223C 

M 1C1224C 

M1C1225C 

H1C1226C 

M1C1227C 

M 1C122BC 

M1C1229C 

M 1C1230C 

MIC1231C 

M1C1232C 

M1C12330 

MIC12340 

H  1C  12  350 

M1C12360 

M1C1237C 

MIC12380 

M1C1239C 

MIC12400 

M1C12410 

M IC12420 

M1C12430 

MIC12440 

MIC12450 

MIC12460 

M IC12470 

MIC12480 

MIC  12 490 

M1C12500 

MIC12510 

M1C1252C 

M IC12530 

MIC  12540 

M1C1255C 

M  I C 12  560 

M1C1257C 

M 1C  12  5bO 

M1C12590 

M1C12600 

M1C1Z610 

M1C12620 

M1C12630 

MlCli 640 

M 1C1265C 
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REAL  LS125CO) ,PCV( 2500), TLU( 2500) 

MIC1266C 

INTEGER  HCSH0PI200 ) ,NSHQP 

M1C1267C 

INTEGER  PRED(10000),NP(25  00)  , PPOS ( 2  500 

H1C1268C 

REAL  CTRANF ( 10000 ),CTRANP{10000) 

M  IC1269C 

INTEGER  PR  1(2500), OUR (25 00) ,RANK(2500) 

MIC12  700 

INTEGER  I  ACTIVE  1000), IRE AOY( 1000) 

M1C1271C 

INTEGER  NSAVE (900) .MSAVE (900  ) , IRESCH (900) 

MIC12  720 

CGMM0N/BB1/  IREAOY,  I  ACT  I V,NREAOY ,NAC T 1 V 

M1C12730 

COMMON/ BB4/CTRANF.CTRANP 

M 1C  12  740 

CCMM0N/BE5/  LS.NNODE ,  RANK,  1 T URN 

M  1C  12  750 

COMMON/ BP6/PRED ,  NP,  PPOS 

MIC12760 

COMMON/ B E8/PC V , TLU , TF INI S ,Z .CLOCK ,OUR ,LE  NGTH 

MIC12770 

COMMON /BP9/ A NUM,  ASHUP,  A,  AR 

M1C12780 

CCMM0N/BB11/ZL 

M 1C12790 

CCMM0N/BB13/NRES ,  NCC 

H 1C12600 

CCMM0N/CC9/  NCSHOP,  NSHOP 

M 1C  12  810 

c 

M1C12820 

I  SAVE  *0 

M 1C  12830 

JSA  VE  =  0 

H I C 12  850 

c 

M 1C12850 

OC  10  11=1  ,NREAD Y 

M1C12860 

c 

MIC1267C 

c 

SEARCH  CRITICAL  ACTIVITY 

MlC128bO 

1 *1  RE  AD  Y  ( 1 1 ) 

H1C1209O 

IF ( (LSI  I)-CLOCK-OUR(I)).GT.O)  GO  TO  1C 

M 1C  12900 

MRE  S*ANUM ( 1 ) 

MIC1291Q 

lF(MRES.EQ.O)  GO  TO  10 

M IC12920 

c 

M IC12930 

NR1 TE ( 37 ,100 )  CLOCK, I 

MIC129«»0 

ICO 

FORMAT (lX,Ft.2«*  ACT.*,  14, •  IN  CRITICAL  ROUTINE  $*$$*•) 

M 1C1295C 

c 

HIC12960 

c 

SET  RESOURCES  NEEOED 

M1C12970 

00  12  L s 1 » MRE S 

M1C12980 

K=WCSHOP ( A SHOP ( I ,L  )  ) 

M 1C12990 

1? 

RNEEO(K)=A(I ,L)*ZL( I)-AR(K) 

M 1C 13000 

c 

M 1C  13010 

DO  13  L=1 ,900 

H1C13020 

13 

IRE  SCH  ( L  )  *C 

M 1C13030 

c 

M 1C  130*0 

c 

SEARCH  TRULY  SLACK  ACTIVITIES 

MIC13050 

I0X=0 

M1C13060 

DC  15  =1  ,N ACT  1 V 

M 1C13070 

J 3 I  ACT  I V ( J J ) 

MIC  13080 

1 F f (LS( J  )-CLOCK-OUR( J) ).LE.O)  GO  TO  15 

M I C 1 3090 

IF ( ANUM (J).LE.O)  GC  TO  15 

MIC1310C 

IDX  *ICX  +  1 

M I C 13 1 10 

IRE  SCH ( ICX)=J 

H IC1312C 

15 

CONTINUE 

M 1C  1 3 130 

C 

M1C131AC 

IF ( IRESCH(l).EQ.C)  FETURN 

M 1 C 13 150 

C 

H IC1316C 

c 

CHECK  IF  ENOUGH  RESOURCES  CAN  BE  ACQUIRED 

H  JC  13  1  70 

NN  =  1 

M IC 13 1 bC 

1 1 

Js I  RE  SCH (NN ) 

M 1C  13 190 

c 

NOT  ENOUGH  RES.  RAIL 

M 1C13200 

•  J 


>vy 
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IMJ.EQ.O)  THEN 
GO  TO  10 
LN01F 

MRES=ANUP< J) 

DC  17  L  =  1  ,PRE  S 

K=WCSH0PCASH0P(J,L)1 

RNEED(K)=RNEEDtK)-A(JfL)*Z(J) 

MRE  S= ANUP  (  1  ) 

ICHECK*C 

DC  18  L  *1 ,HRES 

K=WCSH0P(ASHGP(I,L1) 

IFIRNEEC(K).GT.O)  1CHECK=1 
IF  1CHECK=1,  TRY  HORE  SLACK  ACTIVITIES 
I F ( ICHECK.tQ.l)  THEN 
NN=NN*1 
GO  TO  16 
END  IF 

SUCCESS  TO  GET  ENOUGH  RESOURCES 
RELEASE  RESOURCES  OF  NN  SLACK  ACT'S 
DO  20  H  *  1  ,NN 
J=IRESCH (Ml 
MRE  S=ANUP ( J } 

DC  20  L  *1 , PPt  S 
K=HCSH0P(ASH0P{J,L1) 

AR(K)*AR(K)  +  A(J,L)«Z(  J) 

CONTINUE 

SCHEDULE  ACTIVITY  1 
ZNEK=ZU(I ) 

ZC=CUR( I )/(LS(l)-CLOCK) 

IF(ZNEW.GT.ZC)  ZNEH=ZC 
MRES=ANUH( 1 ) 

DO  27  L=1,PRES 
K=WCSHOP(ASHOP(I , L ) ) 

IF(A( I, L). IT. .0001)  GOTO  27 
ZARSAR(K  )/A ( I ,L) 

IF(ZNEH.GT.ZAR)  ZNEW=ZAR 
CGNTINUE 

CHECK  FLOW  TRANSFER 
I F ( NP ( I  l.EC.O)  GOTO  31 
1START*PP0S(1 1*1 
IENL  =  NP(  IHPPOSI 1 ) 

DC  29  IPOS=ISTART • I  END 
IFICTRANP(lPLS).EC.l)  GOTO  29 
IK'FRED(IPCS) 

IFUFlNlStm.LE. CLOCK)  GOTO  29 
IF(CURm.LE.O)  GOTO  29 

ZPAXI =DUR (  1  )<I1.-CTRANP( I POS ) )/( TF IN  1  SI  IK ) -CLOCK ) 

1FIZMAXI  .LT.ZNEW)  ZNEW=ZMAXl 

CONTINUE 

CONTINUE 

IFIZNEM.LT. ZLII1)  THEN 

CLEAR  THE  ADCED  RESOURCES 


P1C1321C 
H  IC13220 
P 1C13230 
M1C132VC 
M1C13260 
MIC1326C 
HIC1327C 
M IC13260 
H 1C13290 
P1C13300 
M1C13310 
P  1C13320 
H 1C  13330 
H  1C133A0 
M1C1335C 
P 1C13360 
P  1C13370 
M 1C13380 
H1C13390 
H  1C13A00 
H  IC13A10 
P  1C13A2Q 
P IC13V30 
PIC13AV0 
PIC13A50 
P 1C13A60 
PIC13A70 
H IC13V8C 
P 1C13V90 
P 1C 13 500 
P IC 13510 
HIC1352C 
P1C13530 
P1C135V0 
H 1C13550 
P IC13560 
H1C13570 
P 1C  13580 
P.  1C1359C 
P1C13600 
PIC13610 
H 1C  13620 
P IC 13630 
P 1C136A0 
P 1C  13650 
P 1C  13660 
PIC13670 
P  1C136B0 
P  1 C 1 3690 
PIC  13  700 
P 1C1371C 
P IC  13  720 
P It  13  730 
PIC  13  7*0 
P  1C1375C 
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OC  32  M=1,NN 
J  =  IRE  SCH (M  ) 

MRE  S  =  ANUM ( J ) 

OL  32  L  =1 » MRES 
K  =WCSHGP 1 A SHOP ( J  »L  )  ) 

AF(K)=AR(K)-A( J,L )*Z(J) 

CCNTINUE 
GC  TO  10 
END  IF 

UPDATE  AVAILABLE  RESOURCE S, ETC.  AND  SAVE  1  IN  NSAVE 
DC  33  L  =  1 ,MRES 
K=NCSHQP(ASHOP(I * L  )  ) 

AR( K ) -AR (K )~A( I,L)*ZNEW 

CCNTINUE 

I SA VESI SAVE+1 

N  SA VE ( I  SAVE )  =1 

TST  ART ( I ) =CLOCK 

TLU  ( I ) =CLOCK 

CALL  RESCHD(l.ZNEH.AR) 

WRI TE ( 3  7  ,106  )  1 

FORMAT ( *  ACTIVITY*, 15,  *  IS  SCHEDULED.*) 

UPOATE  UNOCEO  ACTIVITIES  AND  SAVE  J  INTC  MSA VE 
DC  35  M  =  1 » NN 
J  =  IRE  SCH (M ) 

WR1 TE ( 37 ,107 )  CLOCK ,J .CLOCK +1 . 

FCRMAT(1X,F6.2,*  ACT.*, 14,*  IS  DELAYED  UNTlLSFfc.2) 
Z!J)=0. 

PCV(J)=0. 

CALL  CANCEL! J , 1 AC T I  V , NACT  IV) 

MSAVE(JSAVE+M)*J 

CCNTINUE 

JSAVE»JSAVE-*NN 

CCNTINUE 

UPDATE  ACTIVE  AND  READY  LIST 
IF( ISAVE.EC.O)  RETURN 
DC  50  I  1=1,1  SAVE 
I  =NSAVE (II) 

CALL  CANCEL! I ,  I  RE AC Y , NRE ACY ) 

CALL  ADDL!  I  ,PRI ,IACTI V.NACT I  V) 

CCNTINUE 

IF! JSAVE.EC.O)  THEN 

wmEU,#)*«*«  LOGIC  ERROR  IN  SUBROUTINE  CRITIC.. 

RETURN 

END  IF 

DC  to  JJ=1,JSAVE 
J=MSAVE ! JJ) 

CALL  AOUL(J,PRI,IREADY,NREADY) 

CCNTINUE 

RETURN 

END 


CFECK 


M 1C  13 76! 
Y  1C1377! 
y 1C1378C 
M  1C  13  79! 
M1C1380C 
M1C1381C 
MIC  1382^ 
MIC1383C 
MIC1384C 
M IC1385C 
M1C1386C 
MIC1387C 
M1C1388C 
M  IC1369C 
MIC1390C 
M1C1391C 
MIC13920 
M1C13930 
M1C13940 
M 1C13950 
M  1C1396C 
M  1C13970 
M  1C  13980 
M1C13990 
M 1C 14 000 
M IC14C10 
MIC14020 
M  1C  14030 
M IC14040 
M  1C14050 
M1C1406C 
M 1C  14  070 
MIC14060 
M 1C  14  090 
M1C14100 
M1C14110 
M1C14120 
M1C14130 
MIC14140 
M 1C  14 150 
M 1 C 14 160 
M1C1417C 
M 1 C 14 180 
M IC 14 190 
M I C 14  200 
MIC14210 
M 1C  14  220 
M 1C  14230 
y  1C14240 
M 1C  14  250 
M 1C  14  260 
M1C14270 
MC14280 
M  I C 14  290 
M 1 C 14  300 


I 

V 
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SUBROUTINE  RESCHD (NA , ZNEW  ,AR ) 

THIS  ROUTINE  RESETS  TF INI S,Z ,PCOV ,TLU  ACCORDING  TC  NEW  INTENSITY 

DIMENSION  CFL(30) ,PCV( 2500) ,TLU( 2500  )  ,TF IN  IS (2500 ), Z 12500 ) 
INTEGER  CUR ( 2500 ) 

INTEGER  FOLL ( 10000 ),NF (2500 ) ,FP0S(25CC) 

INTEGER  PREO ( 10000  )»NP(2500) ,PP0S(2500) 

DIMENSION  TEVENT (10000) 

INTEGER  TIHVEC( 10000,2), A DTI ME (1000 ,11) 

C1MENSICN  CTRANF  ( 1C000 )  ,C  TRANP  ( 10000  )  , AM  200  ) 

COMMON/ BP A/CTRANF ,CTRANP 
CCMM0N/BE6/PRE0,NP,PP0S 
COMMON/EB 7/FOLL ,NF,FPOS 

C0MM0N/BB8/PCV,TLU,TF1N1 S  ,Z .CLOCK , DU R  .LENGTH 
COMMON/ TTT/TE VENT, T IMVEC.ADT 1ME.NXTVEC 

PC0V=1. 

ZCL0=Z(NA) 

IF ( DUR ( N A  )  .L  E .0 )  GOTO  125A 

PCOV  =  PCV(NA)-MCLOCK-TLU(NA)  )*2  (NA)/DUR(NA) 

125A  K=1 

NPF  =F PO  S (N A  ) ♦ 1 
DFL ( 1  )  =  1  • 

IF(CTRANF(NPF J.EQ.l.)  GOTO  115 
K  =2 

DFL(2)-CTRANF (NPF) 

115  CONTINUE 

C  ERASE  OLD  EVENT  FROM  SCHEO  LIST 

IF(TEVENT( 50004N A )  . EQ  .0 . )  GOTO  201 
IF ( (0FL(2)-PC0V) .LE. 0.0001)  GOTO  201 
CALL  ERASE (5000+NA) 

2C1  IF(TEVENT(2500*NA).EQ.O.)  GOTO  202 
IF(PCCV.GE. 0.9999)  GO  TO  20 2 
CALL  ERASE (2500+NA ) 

C  RESCHEDULE  NEW  EVENTS 

2C2  PCV(NA)=PCCV 
TLU (NA ) =CLCCK 
IF ( ZNEW  .LE  ■  .0001  )  THEN 
TF INI S(NA )=99999. 

WRITE  (fc,#) 'ACT *,NA, •  INTERRUPTED  AT', CLUCK 

GO  TO  26 

ENDIF 

DC  120  J=1,K 
PLEFT=DFL( JI-PCOV 
IF (FLEFT.LE  .0.0001 )  GOTO  120 
ANWTM=CLCCK*PIEFT$CUR (NA)/ZNEW 
IF (DFL( J J.LT .1. )GOTC  122 
CALL  SCHEO (2500+NA, AN WTM) 

121  TFINISINA ) =ANKTM 
GCTL  120 

122  CONTINUE 


M1C1A310 
M 1C  1 A  320 
M1C1A330 
M 1C1A3A0 
M1C1A350 
HIC1A360 
M1C1A370 
M1C1A38U 
M1C1A390 
M1C1AA00 
M1C1AA10 
K IC1AA20 
M I CIA A 30 
M1C1AAA0 
M1C1AA50 
M1C1AA60 
M1C1AA70 
M 1 CIA  ABO 
M1C1AA90 
M 1C1A500 
M 1C1A51C 
M1C1A52C 
M  1C1A530 
M  IC1A5A0 
M1C1A550 
M1C1A560 
MIC1A570 
M  1C1A580 
M1C1A59C 
M 1  CIA  600 
H1C1A610 
M1C1A620 
M 1C 1A  630 
M1C1A6A0 
M 1C  1 A  650 
M1C1A660 
M1C1A670 
M 1C 1A  680 
M 1C  1 A  690 
H1C1A  700 
MIC1A  710 
M 1 C 1 A  720 
M  IC1A730 
M1C1A7A0 
M1C1A75C 
M1C1A760 
M1C1A770 
M1C1A780 
M 1 C 1A 790 
M1C1A800 
M1C1A810 
M IC 1A  820 
M 1C  1 A  830 
M1C1A8A0 


CALL  SCHED(5000*NA,ANWTM) 


M.  1C1A850 


2/2 


ND-A168  361 
UNCLASSIFIED 


GUIDE  TO  SIMJLATION  SCHEDULING  APPENDICES  B  AND  C(U> 
CALIFORNIA  UNIV  BERKELEV  OPERATIONS  RESEARCH  CENTER 
R  C  LEACHNAN  ET  AL.  JAN  86  0RC-86-1-APP-B/C 
N88814-76-C-B134 


F/G  9/2 


NL 


non  noon 
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120  CONTINUE 
26  CCNTINUE 
Z<NA)*ZN£W 

WRITE (37,158)  NA ,Z (NA ) ,PCOV .CLOCK ,ZOLC 
WRI TE ( 3 7  ,158 )  CLOCK  ,NA ,Z ( NA) ,ZOLD ,PCCV ,TF INI S( NA) 

♦  , AR ( 01 ) , ARC  02) 

LENGTH  *LENGTH-*1 

158  FCKMAT(5X,I5,5X,F6.3,5X,F6.3,5X,F8.2  ,5X,F6.3  ) 

15P  FORMAT!  1X.F6.2,'  *,15,»  I*».F6.3, 

♦  •  0*',F6.3»'  P* '»F5.3  ,'  F* • ,F6.2  , 

♦  •  R  *  •  ,2F8  .1 ) 

RETURN 
ENO 

SUBROUT 1NE  DWNGRO (M ,ZLOW,Z, 1 IRUN.PR I ) 

THIS  ROUTINE  DOWNGRADES  ACTIVITY  INTENSITIES  TO  RECTIFY  CAPACITY 
VIUALATICNS. 

DIMENSION  IRE V( 1000 ),NPR1 <1000 ) ,A (250C ,70 ) .A R( 2C0  ) 

INTIGER  ANUM (2500 ) , ASHOP ( 2500,70) ,WCSFQF(200 ),NSHCP 
INTEGER  1ACT 1V( 1000) , 1 READY ( 1000) 

DIMENSION  ZL (2500)  ,Z(2500) 

INTEGER  PR  1  (2500  ) 

CCMM0N/BE1/  IREADY,  1  ACT  I V ,NRE AOY ,NAC T I V 
COMMON/ CC9/WC SHOP ,NSHOP 
CCMM0N/BB9/ANUM , A  SHOP , A , AR 
CLMM0N/BB10/IREV  ,NPR1  , JFLAG 
CCMM0N/BB11/ZL 

DO  1162  1*1, M 
J*NPRI( I ) 

JK* 1REV ( J  ) 

IF(ZLCW.GT.ZHJK))  ZLOW*ZL(JK) 

ZMEX*Z< JK)-ZLOW 
C  DETERMINE  IF  ANY  CONTRIBUTION  DONE  DUE  TO  JK 

IFLAG*0 
JFLAG*0 
NRS*ANUM(JK) 

IF(NRS.EC.O)  GOTO  1162 
DO  1163  L*1 ,NRS 
K=WCSHOP ( ASHOP ( JK,L) ) 

AD*ZMEX«A(JK,L) 

IF(AD.GT.  .01  .AND.  AR(K).LT.O.)  IFL AG=1 
1163  CCNTINUE 

IF (  IFL AG  .EC  *0  )  GOTO  1162 
C  UPDATE  AVAILABLE  RESOURCES 

DO  1256  L*1 ,NRS 
K .WCSHOPC ASHOP (JK,L)) 

1256  AR(K)=AR(K)4ZMEX*A(JK  ,L) 

CALL  RESCHC  (JK.ZLGW.AR) 

C  CHECK  IF  CAPACITY  V1ULATI0N  RECTIFIED 

1233  CALL  CHECKUR, JFLAG) 

IF( JFLAG. EC. 0)  RETURN 
1162  CCNTINUE 
C 
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C  NEGATIVE  AR  *j  LOGICAL  ERROR 
I F (  1 1  RUN  .EC  .2  )  THEN 

WR1TEI6,*) ’NEGATIVE  AR  AFTER  DISRUPTING  ..  LCGIC  ERROR* 

DC  1222  11*1  * NSHOP 

IF(AR(I 1I.LT.O)  THEN 

WRITE (6  ,* ) *1 »AR**» II *AR( 1 1) 

END  IF 

1222  CONTINUE 
STOF 
END  IF 
RETURN 
C 

ENO 


SUBROUTINE  RAND ( N *U ) 

THIS  ROUTINE  COMPUTES  A  RANDOM  NUMBER  0<  *U *  <  1  USING  SEEO  *N* 

N*N*84331<»661  4  A53816693 
IF(N.GE.O)  GOTO  1 
N*N  4  21A7AB36A7  41 
1  U=N*  .A656612E-9 

IFIU.LT.O.  OR.U.GT.l)  WRITE ( 6 » ® ) *  RANG  CUT  OF  LIMIT*, U 

RETURN 

END 


SUBROUTINE  SCHED ( CODE  , T IME } 


THIS  SUBROUTINE  ADO.,  THE  EVENT  TO  THE  SCHEDULING  LIST. 

INTEGER  T 1NVEC ( 10000, 2 ), AOTIME < 1000, 11),NPCELL  ,NP2* CODE ,LT IME 
REAL  TIME.TEVENT ( 10000) 

CCMMON/TTT/TE VENT, T1MVEC, ADTIME ,NXTVEC 
COMMQN/YYY/LTIME 

NPCELL*TIME«10414.5 
IF(NPCELL.CT.LTIHE)  LTIME'NPCELl 
IF ( TIMVECINPCELL ,1) .NE.O)  GOTO  1 
C  SCHEDULE  FIRST  EVENT  AT  'TIME* 

T1MVEC(NPC£LL,1)*C0DE 
GOTO  7 
C 

1  IF(TIMVEC(NPCELL,2).NE .0)  GOTO  2 

C  FIRST  USE  OF  AUX.  STORAGE  AT  • TIME • 

ACT 1ME(NXTVEC,1)*C0CE 
T IMVEC(NPCELL,2)*NXTVEC 
GCTO  6 

2  NP2=T1MVEC (NPCELL ,2 ) 

3  IF( ADTIME (NP2, 10). NE.O)  GCTO  3 

C  AUX.  VECTOR  OCESN'T  POINT  TO  A  NEXT  ONE. 

OC  A  1*1.9 

IFIADTIME (NP2,I ).NE.0  )  GOTO  A 
ADT I  ME ( NP2 , 1 ) =CCDE 
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GOTO  7 

4  CCNT1NUE 

C  E  XTENT I  ON  VECTOR  IS  FULL.  USE  THE  NEXT  ONE  AVAILABLE 

ADT1ME(NP2.10I*NXTVEC 
ACT  1ME(NXTVEC»1) *C00E 

C  FILL  BACKWARD  POINTER 

ADT IME ( NXTVEC, 11 )=NP2 
GOTO  6 

5  NP2=A0TIPE(NP2,10) 

GCTC  3 

6  NXT 1=NXT VEC+l 

C  FIND  NEXT  AVAILABLE  AUX  VECTOR 

OC  8  I*NXT1  .1000 

lF(AOTlHE(lfl).NE.O  )  GOTO  8 
NXTVEC* I 

7  TEVENT(CCOEI*TIME 
RETURN 

8  CONTINUE 

WRITE  ( 6  »* ) '  AUXILARRY  EVENT  STORAGE  IS  FULL.  ' 

STOP 

ENO 


SUBROUTINE  RMV( CODE ,T IHE , LAST , CLOCK ) 


THIS  SUBROUTINE  FINOS  THE  THE  NEXT  EVENT  IN  THE  LIST  AND 
ERASES  IT.  IF  THERE  ARE  MORE  THEN  A  SINGLE  EVENT  AT  TIME, 
RMV  WILL  PICK  THE  LAST  ONE  WHICH  WAS  SCHEDULED. 


INTEGER  FCELL.TIMVECt 10000,2), ADTlME (LOCO, II ), CUDE , LAST ,L 1 IHE 

real  t  ime, clock,  stoptm.teventuooooi 

CCMFON/RHVMN/TENO 

COM MON/T  TT/TE VENT ,T IHVEC , ADT IHE .NXTVEC 
CCMMON/YYY/LTIME 


LAST*0 

FCEIL«CLCCK*10+1*.5 
00  10  I *FCELL ,LT IHE 
IFITIMVECIl  dl.EQ.O)  GOTO  10 
IF(TIHVEC(I,2).NE.0)  GOTO  1 
SINGLE  EVENT  AT  'TIKE* 

CODE  *  T I MVEC ( I  ,1) 

T  1ME=FLCAT  ll-D/10.  MODIFIED  TU  USE  EXICT  TIME  VALUE 

TIME=TEVENT(CGDE ) 

TIMVEC(I,1I*0 
LAST  =  1 
GOTO  32 

MORE  THEN  ONE  EVENT  AT  « T IME  * 

1  NP2  *T IHVEC ( I ,2) 

2  IF(A0TIME(NP2,10).NE.0)  GO  TO  S 

00  4  ,10 

IF( AOT IME (NP2.J)  .NE .0)  GOTO  4 
COOE  *  AOT IME INP2.J-1) 
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M IC1597' 
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T1ME*(I-1)/10. 

T1ME*TEVENT(C00E) 

ADTIME(NP2.J-1)*0 

ERASE  THE  THE  LAST  EVENT  AT  MIME*.  IF 
IN  THE  AUXILLARY  VECTOR*  RELEASE 
IF(J.NE.2)  GOTO  32 
NP22*ACTIME(NP2,U) 

1F(NP22.NE .0)  GOTO  3 
T  IMVEC ( I  ,2 ) =0 
GOTO  31 

3  APTIME(NP2,11 )*0 
ACT1ME(NP22#10)*C 

31  1F(NXTVEC.GT.NP2)  NXTVEC*NP2 

32  IF(TIME.CE.TEND)  GOTO  11 
RETURN 

A  CONTINUE 

5  NP2=ADT 1HE (NP2.10) 

GOTO  2 

10  CONTINUE 

HR1TE(6»«)  •  SCHEDULER  TABLE  IS  EMPTY* 

LAST«2 

RETURN 

11  NR1TE(6,«)*T1ME  LIMIT  EXCEEDEO.  TIME  IS 
«RITE(6,<)*C0DE**.C00E 

LAST  =3 
END 

SUBROUTINE  ERASE (COPE) 

THIS  SUBROUTINE  IS  ERASING  EVENTS  FRUM  Tl 


IT  IS  THE  ONLY 
THE  VECTOR. 


EXCEEOEO. 


GAYS* 


SCHEDULER  LIST 


INTEGER  T IMVEC (10000, 2). AOTIME (1000, 11) .CODE  ,C0CE1 
REAL  TIME, TEVENT (10000) 
CCMMQN/TTT/TEVENT,T1MVEC,A0TIME,NXTVEC 


T  IME*TEVENT (CODE ) 

1FUIME.EQ.0.)  RETURN 

EVENT  HADN’T  BEEN  SCHEDULED 
TEVENT (CODE )  =  C. 

NCELL*TIME«10+1  +.5 
THE  TRANSFORMATION  IS  AS  FOLLOWS 
T1ME*10  -»1  (  FOR  T*0.  )  +.5  (  FO 
1F(TIMVEC(NCELL,1 )  »NE .CODE )  GOTO 
CALL  RMVICCDEI, TIME ,L, TIME) 
IFUODE.EQ. CODED  RETURN 
TIMVEC(NCELL,1)*C0DE1 
RETURN 

NP2«TIMVFC(NCELL ,2) 

OC  3  J* 1  ,9 

IF(ADTIME(NP2,J).NE .CODE )  GOTO  3 
CALL  RMV(C0DE1, TIME. L, TIME) 

IF (CODE  1 .EG.COOE )  RETURN 

ACT1ME(NP2,J)*C00E1 

CONTINUE 


(  FOR  ROUNDING.) 
GOTO  1 
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NP2*A0TIPE(NP2»1G) 

IFINP2.GT.0)  GOTO  2 

RET CRN 

END 

SUB ROUT IRE  ACCUM ( T IAS ,WCSHOP .NSHOP ) 


THIS  SUBROUTINE  ACCUMULATES  THE  USAGE  UF  THE  RESOURCES. 


INTEGER  RCSHOP ( 200 )»N SHOP ,ANUM( 2500) » AShOP (2 500 ,7C ) . lACTlV(lCOO) 
INTEGER  IRE AD Y( 1000) *  OUR ( 2500) 

REAL  ACUMRS(200) ,ACUMSP(50) ,A< 2500 ,70  )  .CLUCK  ,T IAS, 2 (2500) 

REAL  PCV  (2500 ) ,TLUf 2500) »  TF INI S (2500 ) »AF  ( 20G  ) 

CCMPQN/BB1/1 REAOY ,  1  AC  T  IV  , NRE  ADY  »NACT IV 
CCMPON/B68/PCV,TLU#  TF IN! S ,Z , CLOCK .DUR  .LENGTH 
COMMON/ BB9/ANUM , ASHOP  »A,AR 
CCPP0N/CC1C/ACUPRS .ACUMSP 
C 

IFITIAS.EO. CLOCK)  RETURN 
DO  1  1*1  ,NACT IV 
I I*IACTIV( I ) 

NRS*ANUM(II) 

IF(NRS.EC.C)  GOTO  1 
DC  2  J* 1 »NR  5 

DRES=A(lIf J)*(CL0CK-TIAS)*Z(I1) 

L*ASHOP(II,J) 

ACUPRS(L)*ACUMRS(L)+ORES 
ACUMSP(MCSHOP(L) )=ACUMSP(HCSHOP(L) )*DRES 
2  CONTINUE 
1  CONTINUE 
TIAS*CLCCK 
RETURN 
END 


SUBROUTINE  OCCNV (HKD, CLNO ) 

C  *  9 

C  *  THIS  ROUTINE  CONVERTS  THE  WORKING  DAY  INTO  CALENOAR  DATE  * 

C  *  * 

C  ^999999999999^99999 

INTEGER  WKD .  YEAR  *  SMON  ,SOA  Y, SYR , WkDTB (120,31)  ,CLND(3) 
CCMPON/DCON/SPCN.SOAY ,SYR .YEAR tWKDTB 
C 

lFINKO.LT. 0)  THEN 

WRITE (6  »*)  •*  ILLEGAL  WORKING  DATE  =',WND 
CLNC( 1  )*0 
CLNDI 2)*0 
CLNO ( 3  )  *0 
RETURN 
E  NO  IF 
C 

1F(WK0.GE. 99998)  THEN 
CLNDl 1 )  *99 
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CLNC  C  2  )  =99 
CLND( 3 )  *99 
RETURN 
END  IF 

1  SYR* ( SYR- YEAR  1*12* SMON 
M*HKD-»1 

DO  310  J I  *SDAY ,31 
M=M-HKDTB(ISYR,Jl) 

JCUT* J I 

1F(P.EQ.0>C0T0  380 
310  CONTINUE 

JSYR* ISYR-M 
320  DO  330  J  J*1 ,31 

M=M-WKD  TB ( JSYR , J J ) 

JCUT  *JJ 

1F(K.EQ.0)C0T0  390 
330  CONTINUE 

JSYR*JSYR*1 
GOTO  320 
380  CLND(1)*SMCN 
CLNC( 2 ) * JOUT 
CLNC ( 3 ) *SYR 
GOTO  300 

390  KMON*MOC ( J5 YR ,121 

IF  (KMGN.GT.O)GOTG  395 
KMUN=12 

395  KYR=(JSYR-KMGN)/12*YEAR 
CLND(1)*KMCN 
CLND( 2 ) * JOUT 
CLND(3)*KYR 
300  CONTINUE 

CLNC(3)*CLND(3)-1900 

RETURN 

END 


SUBROUTINE  GALA ( CLND, HD) 

C  * 

C  *  THIS  ROUTINE  CONVERTS  THE  CALENDAR  DATE  INTO  NCRKING  DAYS 
C  * 

INTEGER  NO • YEAR , SMON, SDAY ,SYR , WKDTB ( 1 20 ,31 )  , CL ND ( 3 > 
CCMNQN/CCON/ SMON , SDAY ,SYR ,YE  AR , HKDTB 


CLND(2)*CLND(2)-1 

I  SYR* (SYR- YEAR)* 12  + SMQN 
WC*0 

IYR*(CLNC(3)-YEAR)*124CLNC(1) 
I F  <  1YR.LT.1SYR)G0T0  650 
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IF< 1YR.EC.ISYRJGOTO  590 
OC  400  PI* 1  SYR  » I YR 
IF(HI.EO.ISYR)GOTQ  410 
IF(HI.EG.IYR)GOTC  420 
OC  440  PK*1»31 
H0*H04WK0TB(H1VHK) 

440  CONTINUE 
GCTO  400 
420  LH*CLN0(2> 

00  430  HL *1 ,LH 
WC=W0*WKDTE(M1,HL) 

420  CONTINUE 
GCTO  400 

410  OC  450  HJ=SDAY,31 
NC=KD*WKDTE(HI»MJ) 

450  CONTINUE 
4C0  CONTINUE 
GOTO  470 
560  LK*CLND (2) 

IFILK.LT .SCAYJGOTO  650 
OC  460  L1*SDAY,LK 
HC=KO*WKCTE ( IYR,LI  ) 

4 60  CONTINUE 
4  70  REP  *HD 
GCTO  500 

650  PRINT  *,*  ILLEGAL  TARGET  FINISH 
REP  *  0 
5C0  CONTINUE 

RETURN 

END 
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c 

C  BMICORC  FORTRAN 

C  - 

C  BMICORG  DOES  SCHEDULING  ACCORDING  TO  3  CATEGORIES  S 

C  1.  DETERMINISTIC  SCHEDULING 

C  2.  STOCHASTIC  SCHEDULING  REGARDING  TEST  REWORK  LOOPS 

C  3.  SIMULATION  USING  RANDOM  RESOURCE  REQUIREMENTS 

C  ALL  3  CAT.  CAN  USE  UPGRADING  OR  UP  t  DOWNGRADING  ALGORITHM 

C  *  VERSION  FOR  BATCH  RUN 


CHAFACTERS50  NAME 

INTEGER  TOTMHR (SOI*  TMILE(50),  ACSHOP(5C),  ACCWC(200), 

4  TOTMDY ( 30C ) * IM1LE (3) .SMILE (SO) ,MDA T  E (3 ) 

REAL  RE  SREC (SO )  ,ATOT(300) 

DIMENSION  A(2500,70),  ITYPE(2500) 

INTEGER  A SHOP (2500  » 70 1 ,ANUM(  2500) .MILE (2500)  ,MILSTN(50) 

INTEGER  FRLM(2500),T0(2500) 

DIMENSION  ZL (2500  I, 2U (25001 ,Z( 25001 

DIMENSION  CAP(200),AR(200)»L0ST(15),DSEEDS(5  ), A I ( 2500 , 7C ) 
DIMENSION  PCV(2500) ,TLU(2500) 

DIMENSION  T START (2500 1,TF INI S( 2500) *ATF IN (25 001 
DIMENSION  CIC(50,200) 

REAL  L S ( 2500  I ,DFL ( 30 1  i  ACUMRS( 200 ) , ACLMSP ( 50  ) 

INTEGER  FOLL(10000I,NF(2500) ,FP0S(250GJ ,WCSHCP(20C) .NSHCP 
INTEGER  PRED(10000)*NP(2500) ,PP0S(250C>  ,REPD AT ( 50  )  .NREPLT 
REAL  CTRANF ( 10000 )«CTRANP(10000) 

INTEGER  PRI (2500 ) .OUR (2500J .RANK (2500  I  ,TFCC( 50 ) 

INTEGER  STATUS(2500).IACTIV(1000},IKEADY(100C) 

DIMENSION  NPR 1(1000). DRV ( 1000 ) » IRE V ( 1  COO  I . TE  Vt  NT ( 10000  ) 

INTEGER  CODE .TIMVEC ( 10000 .2) »ADTlME(l COO . 11 > 

INTEGER  TFCLL (250 ,2  I . T RANK ( 2500 ) .DURR (6C0 .5) 

DIMENSION  TATTR(250,5 I.PROB(IO) .ROUR ( 10 1  ,EDUR( 2500) .PRUER 1600 ,5) 
INTEGER  YEAR,SMONtSDAY,SYR.WK0TB(12O.31),CALNDl(3).CALN02(3) 

CCMHON/Pei/  IRE ADY  .  1 ACTI V.NRE ADY ,NAC  II V 
C0MMQN/PP3/  JNX.JF.JL.LWC 
CCMMON/BBA/CTRANF  f CTRANP 
CCMM0N/BF5/  LS.NNQDE,  RANK,  1TURN 
COM HON /BE 6/PR ED ,  NP ,  PPOS 
CCMM0N/E57/FCLL,  NF ,  FPOS 

COMMON /BE8/F  CV.TLU.TF INI S ,Z , CLOCK ,DUR .LENGTH 
COMMON/ PB9/ A NUM ,  ASHOP,  A,  AR 
CCMMON/BfclO/lREV,  NPR  I ,  JFLAG 
C0MM0N/BB11/ZL 

COMMON /EE12/1 TYPE .ZU.CAP.TFCC.CIC 
CCMMON/9B13/NR0S ,  NCC 
COMMON/CC9/  WCSHCP.  NSHOP 
CCMMON/CC  1C/ACUMR  S  f  ACUMSP 
CCMMON/RMVMN/TENO 
C0MM0N/YYY/LT1ME 

COMMON/ T TT/TEVENT.TIMVEC,  AOTIME .NX T VIC 


BM 10001 

BMI0002 

BM10003 

BM1000A 

BM10005 

BM 1 0006 

BMI0007 

BM10006 

BM10009 

BM 100 10 

B  M 1 00 1 1 

BM 1 00 12 

BMI0013 

BMI001A 

BMI0015 

BM  ICO  16 

BM10017 

BM  1 00 18' 

BMI0019' 

BM10020I 

BMIC021' 

BMI0022( 

BM10023! 

BM1002A< 

BMl0025i 

BMI0026< 

BM1 0027( 

BM I C028( 

BMI0029C 

BMI0030C 

BMI003K 

BMI0032C 

BM100331 

BMI003AC 

eMl00  35C 

EMI0036C 

BMI00  37C 

BMIC038C 

BM 1 00 390 

BM1C0<*0C 

BM 1 00  A1C 

6MJC0A2C 

BM.l  CO  A3C 

BMlCOAAO 

BKICCA5C 

BM1G0A6C 

BM I  CO A 70 

BMIC048C 

BM1C0A9C 

BM1C0500 

eM!C051C 

BM100520 

eM!0053C 

6M1C05A0 

BM 1 00550 
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CCMHON/OCUN/SMON ,SOAY ,SYR .YEAR ,  WKOTB 
CHARACTER® 1  NNTES 

C  READ  INPUT  FILES 

C 

RE AD ( 1  *  323  )  NAME, 

♦  IRAPOL  *  I LOW ,IUP*NTEST»KTEND*NCYCIE»ITARG*ICAID 

C 

RE AC( 33  *322 )  NRES.NSHQP 
RE  AD ( 3A *322 )  NCC 
READ! 35  *322 )  NREPOT 
322  FCRHAT ( 2CX  *  1 5) 

C  READ  SEED  FOR  RANOCH  NUMBER 

READ! 17, 1777, END *777)  NR A NO 
GC  TO  778 

777  WR 1 TE ( 6 ,® )  *  *«®  RANDOM  SEED  FILE  NOT  FOUND.  CHECK  BBRAND  DATA* 
STOP 

778  CONTINUE 
C 

WR  I  TE  (  6  ,®  )  * 

WRITE (6,®)*  ®  H  I  C  0  R  G  (BATCH)  «♦ 

WP1  TE  (6  *®)  *  ®  $**«$*$$:*«!*$«!>*«**«**$*<»*«$«$*$«$**$*$$  • 

WR  HE  (6  ,® )  *  * 

IF(NCYClE.EQ.l)  1SIM*1 
IF(NCYCLE.NL.l)  ISIH=2 
C 

WR I TE  (6  ,*) *  THANK  YOU.  IN  PROCESSING . • 

C 

ZLOW=ILCW®.01 
ZliP  *1  UP®  .01 
T IME  *0 • 

TENC=KTEND®1. 

C 

WR1 TE (6  ,®I *  READING  POLL  l  PRED* 

READ{2,951)  FOLL 
REAC(3,951)  PRED 

WR 1 TE ( 6  »® ) *  READING  ACTIVITY-RESOURCE  DATA* 

READ(*,951)  ANUM 

WRI TE (6  ,® ) *  READING  TRANSFER  COFFICIENTS* 

C  INITIALIZE  COEFFICIENTS  TO  1. 

DO  244  1=1,10000 
CTRANF( 1 ) *1 . 

CTPANP(1)=1. 

244  CONTINUE 

REAC( 12  ,952,END=7)  CT R ANF  ,C T R ANP 
7  WRITE (6,®)'  READING  ACTIVITIES  DATA* 

nhile=o 

I  TUF  N  =  0 

00  550  NA  =  1 ,2500 

REAC  (7,952,EN0*101 )  FROM ( NA ) * T 0 (NA ), DIR (NA), ITYFE (NA) 

1F(  ITYPE(NA) .KE.3.AND.1TYPE (NA)  .NE.4  )  I  TURN*  IT  UR N«1 

IF(1TYPE(NA).NE.7)  GOTO  954 

NHILE=NM1LE-»1 

MILE (NA  )  =  NHI LE 


BH10056I 
BH,  100571 
6H1C058I 
BHI00591 
BH10060( 
BH1006K 
BH0062C 
BHIC063‘ 
BHI0064C 
BHI0065( 
BH 1  CO  66t 
BHI  C067( 
BH10068( 
BHI0069< 
BH  1 00  70( 
BHI007K 
BHI0072( 
BHI 00  73( 
BH1 00  74( 
BH1G075( 
BH I  00  76( 
BH10077C 

eHIOO 76( 

BH 100 79( 
BH1C080C 
EH1C061C 
BH l GO  82< 
BMI0083C 
BHI 0084C 
BHI  G085C 
BHI0086C 
BHIOOB7C 
BH100B8C 
BHI0089C 
BH10090C 
BHI 009 1C 
BHI0092C 
BHIC093C 
BHI0094C 
eH0095C 
BHIC096C 
BHI  009  7C 
eH!C098C 
BHIC099C 
BHI Cl OOC 
EHI0101C 
BHI0102C 
BH10103C 
BH1C104C 
BHI0105C 
BHI0106C 
BHI0107C 

enioioec 

EHI0109C 

enici ioc 


non  o  o  oonn 
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H IL  STN (NMLF  )=FRCM (NA ) 

RE AD ( 8 , 961  )  FPOS(NA),  NF(NA),  PPOS(NA),  NP(NA) 

KsANUH(NA) 

IF(K.EQ.O)  GO  TO  950 

RE AC ( 9,951 )  I  A SHOP (NA  » J) ,  J=1 ,  K  ) 

RE  AC ( 10  •  963 )  ( A  1 (NA , J  )  , J  = 1 ,K  ) 

950  CONTINUE 
101  NNOCE  =  NA”1 

c 

C  RE AC  HAPPING  WC  »  SHOP. 

REAL (13  ,951  )  (WCSHCP( I ), I =1 « NRE  S ) 

C  REAL  DATES  OF  REPORTING  OATES 

1FINREPDT.GT  .0) 

4  RE  AO (16, 951)  (REPDAT(l) ,1*1, NRE POT  ) 

C 

C  IF  THERE  IS  NO  TEST  ACT.  SKIP  READING 

lF(NTEST.EC.O)  GOTO  379 

WRlTE(6,«)  •  READING  RE WORK-ACTI VI T I E S  DATA* 

RE AC ( 1 8  ,95 1 )  TFOLL 
REAT(  19, *>53)  TATTR 
READ(30  ,551 )  DURR 
REAL ( 31 , 953 )  PROBR 
REAC(20,95l)  TRANK 
379  CONTINUE 

WR1 TE (6  «*) *  READING  CAPACI T Y ( T 1ME ,R E SOURCE )  • 

DC  997  1  =  1, NCC 

REAC(14  ,3001  , END  =997)  ( C IC ( 1 , J ) , J~ 1 , NSHOP ) 

997  CONTINUE 

IF(NCC.LE.l)  GOTO  387 
C  READ  TIRE  CF  CAPACITY  CHANGES. 

READ  (15,951  ,END  =  387)  (TFCC ( 1 ) , 1=1 ,NCC) 

387  CONTINUE 

UR  1 TE ( 6 ,3 )  ’  READING  RANK  OF  ACTIVITIES’ 

READ(11,951)  (RANK (I) ,1  =  1 »NNOOE  ) 

PREPARE  CONVERTING  WORKING  DATES  INTO  CALENDAR  DA  IE  S 
AND  VICE  VERSA 

READ  THE  STARTING  DATE  OF  THE  PROJECT 
READ(52,520)SM0N,SDAY,SYR 
520  FORNAT ( 1CX  ,315) 

READ  THE  YEAP  OF  BEGINNING  IN  THE  WORKING  TABLE 
REAU53,530)YEAR 
530  FCRHATt 1CX  ,15) 

READ  THE  WORKING  DATES  TABLE  FROM  FILE  WORKING  OATES 
DO  533  1=1,120 

READ (59  ,59  0  (KKCTB(  I ,  J),  J=1 ,31 ) 

533  CONTINUE 
590  FCRHAT( 3112) 

TRANSLATE  CALENDAR  DATE  OF  TARGET  FINISH  INTO  WORKING  DAY 

IF (  ITARG.EC.O)  GO  TO  551 
I  YE  R=  I T  ARG/100 
IH0N=ITAFG/10000 
'  KCATE(3)=1TAFG-IYER^10041900 


BHI0111 

BM0112 

BMC113 

BHI0119 

eH10115 

EM0116 

EM  01 17 

EMG118 

6810119 

EM  01 20 

6HI0121 

BM0122 

BM0123 

BH 101 29 

BM0125 

EH1C126 

BMG127 

EH  I  Cl  281 

EH1G129 

EM  Cl  30 

B  H 1 01 31' 

BH I  Cl  32' 

BH1G133' 

EM  Cl  39' 

EHI0135I 

BHI01 36* 

BM01 37< 

EM  Cl  38< 

BHIC139( 

BH1C1  90( 

BM019K 

EM  Cl  921 

BMC193( 

BH1C199( 

eH0195C 

BMG196C 

BHIC197C 

BHIC198C 

eHI0199C 

BHIG150C 

BR1C151C 

eHIC152C 

EH1C153C 

EMC159C 

CH1C155C 

EH10156C 

EM0157C 

8MC158C 

EH 1C159C 

BHI0160C 

BMC161C 

EMG162C 

BHJC163C 

BMC169C 

EM  Cl  65 C 


noon  noon 
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NCATE (1 )=IHON 

HOATE  (2  )  =  (  1TaRG~I MO N»1  OOO 0~M0ATE(3)*1 900/100 
CALL  CALA(MOATE, ISCFIN) 

551  CONTINUE 


END  OF  DATA 


KR1TE16.*)'  END  OF  DATA  .  INITIALIZE  VALUES  FOR  SIMULATION  * 


FINE  EXPECTED  DURATIONS  FOR  TEST  ACTIVITIES 

IF  (  IT  URN  .EQ.  NNODE  )  GO  TO  2999 
C  REPAIR  ACTIVITIES 

k =i turn  *i 
DO  69  I =K, NNODE 
Ms  I-ITUKN 
DO  83  N*1  ,5 
PROB(N)*PRGBR(M»N) 

83  RDUR(N  )=CURR(M»N) 

89  DLR ( I )=XEEAN(PR08,RDUR,5) 

2999  NF L AG*0 

DC  383  I -1 »NNCOE 
IF  < I  TYPE ( 1 ) . NE .2  I  GCTO  381 
C  FIND  EXPECTED  DURATIONS  OF  REPAIR  AFTER  TEST 

J=TRANK ( 1 ) 

IF(TFCLL(J,1)  .EC.0.AND.TF0LHJ,2).EC.C)  ITYPEC  I  )  =  C 
IF(1TYPEU).NE.2)  GOTO  381 
DC  389  L=1 »2 
NC  =  0 

PROB(L)=TATTR( J.3+L) 

K  *TFQLL  C  J ,  L  ) 

RDUR ( L  )  =C . 

IF(K.EC.C)  GOTO  389 
RCURIL  )=CUR(KI 
I  S*FPC  S ( K ) +1 
M=FCLL  IIS) 

NC=NC ■* 1 

IF(TO(I).EC.TO(K)J  GOTO  369 
K=FOLL( IS  ) 

PCUR(L)=RDUR(L)+OU'R(K) 

IFINC.IE.9)  GGT3  385 

WFITE  (6,99)  I,J 

FCRMAT(6X,,TEST,,3X,I9,  •  R  ANKE  D '  ,  1  5 , 2X  ,  •  IS  UNCL'NNfc  C  T l  U  *  ) 
NFL  AG  =1 
GOTO  3E3 
CCNT INUE 
PR=TATTR(J,1) 

ALFA=TATTR( J,2) 

C  ECUF  (  I  ) 1 DUF  (  I)MENS<PR,ALFA  )-l .  )=?DUR  (  IMXHEAMPKOB»KCl'k  ,5) 

ECUF ( 1 ) =CUF (!)♦< 1 ,-PR )*X MEAN (PROS ,RPUR,2 ) 

GCTC  393 

3E1  EDUKI)=CUMI) 


385 


99 


369 


J 

t 

6EIG166  i 

BEIG167  I 

BE10168  ] 

BEIG169 

BE10170 

BEI0171 

BEIG1 72 

BE  1 01 73 

8EIC179 

BEI0175 

BEI01 76 

BE  1  Cl  77 

EE  I  Cl  78 

BE  1 01 79 

BE  1 01  BO 

BEI0181 

BE  101 82 

BEI0183 

BE  101 89 

BE1C185 

6E1C186 

BE1C187 

BE  1 01 88 

BEI0189 

BEI019G 

BEI01911 

BE  I  Cl  92 

BE  1 01 93> 

BEI0199' 

BE  1 01 95' 

BE  101 96' 
BEI0197 
BEI0198 
BE  I0199: 

BE  10200' 

BE  102  01' 
BEIC202' 

EE  10203* 

BE  1 02  091 
BE1 02  05< 

EE  10206' 

BE  1  02  0  7' 

BE  I  02 06* 

EEI02  09I 
BEI02  10; 

6E102  11' 

BE  1 02 12< 

BE1 C2  13* 

BEI02  19; 

BE102  15> 

eMC216i 

BEI0217* 

BE  I  02  lb( 

BMC2  19( 

BE  1C220C 


non 
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383  CONTINUE 

IF(NFLAG.EC.l)  STOP 

C  SET  LOWER  AND  UPPER  BOUNO  OF  INTENSITY 

DC  970  1  =1  ,NNODE 
ZL  (  I ) =ZLCW 
ZL'(  1)  =ZUP 

IF  <  1  TYPE (l).E 0.1  .OR.  I  TYPE (I) .EG  .  2 .OR  .  1 T YPE ( 1  )  .EC . A )  THEN 
2L(  1 )  =  1.0 
ZU( 1)=1.C 
END1F 

970  CONTINUE 

START  SIHULATION  CYCLIES 


DO  1999  1CYCLE=1»NCYCLE 
C 

NXTVEC=1 

T1ME=0. 

LT1FE=0 
CLOCK  =0 • 

T  ACCUH=0 . 

T 1 A  S  =  0 • 

LAST=0 
ISWTCH=0 
NREC=0 
PF1MS  =  C. 

NACT I V  =  C 
NRE  ADY  =  0 
LENGTH=0 


C  RESET  SCHECULE  TABLES 

DO  A3 2  1=1.10000 
T 1HVEC ( I . 1 ) =0 
T 1 FVEC  ( 1 , 2 ) =0 
A 32  TEVENT ( 1 )=C. 

DC  A3  A  1=1,1000 
DO  A3A  .1  =  1,11 
A 3A  ACT  1HE (  1 , J)s0 

DO  1773  L=1.NM1LE 
1778  TFI L E (L  )  =99999 

C  RESET  ACCUHULATION 

OC  92 C  1  =  1 , NRE  S 

920  ACUHRSt  1  )=C. 

00  921  I=1,NSHUP 
T  0  T  F  H  R  (  I  1  =  C  . 

921  ACUHSP (I ) =0 . 

C  FINC  THE  ACTUAL  DURATION  FOR  REPAIR  ACTIVITIES. 

K  =  1  TURN* 1 
DC  £6  1  =K , NNLDE 
M=l-I TURN 
DC  £9  N*l,5 
£9  pRUfc ( N I =RR(  PR (H , N ) 

CALL  PICKIPf CL.KM.5) 


BFIC221 

BF  102 22 

BH10223 

BFI 02  2A 

BF10225 

BFI0228 

BFI0227 

BF I  02  28 

BFI0229 

BFI0230 

B  F.1 02  31 

BH 1 02  32 

BF 1 02  33 

BF1023A 

BF 102  35 

BF102  36 

BF10237 

BFI0238 

BF 102 39 

eFI02A0 

BFIC2A1 

BFI02A2 

BFI02A3 

BF102A4 

BFI02A5' 

BF  1 02  A6i 

BFI02  A7« 

BF102A81 

BFI  02A9< 

BF  1 02  50( 

BF1025K 

BF10252C 

BFI  C253C 

EF1025A( 

BF10255C 

BF  1 02  56( 

BFIC257C 

EF10258C 

EFIC259C 

eFIC260C 

6FIC261C 

B  F  1  02  62C 

BFI0263C 

BF1C264C 

PF1C265C 

BF 102 66C 

BF1C267C 

EF10268C 

BFIC269C 

eF102  70C 

eF102710 

BFIC272C 

BFIC273C 

BF 1 02  7A0 

EF1C2  75C 
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86  OUR  { 1  )=OURR(M#KM) 

c  ranoqmize  the  input  requirements 

00  1740  1*1 .NNOOE 
NRS  =ANUM  <  I  ) 

1F( KRS.EQ.O)  GOTO  17*0 
IF ( 1TYPE < I ) «GT •*  )  GOTO  17*0 
00  17*0  J*1 »NRS 
IF ( 1SIM  .EQ.2  )  THEN 

CALL  RANO(NRAND.URAND) 

A (1 , J )=AI ( I  ,J)$(URAND-.*  ♦  .8) 

END  IF 

I F (  1SIM.FQ.1)  A(  I  ,JJ=A1( I  ,JJ 
17*0  CCNTINUE 

C  SET  RESOURCE  CAPACITIES 

C 

DC  *83  L=1,NSH0P 
*83  CAP (L  )  =C 1 C (1 »L  ) 

C 

C  INITIALIZE  ACTIVITY  DATA 

DO  382  I*1,NM0DE 
TF1NIS(I)=99599. 

ATF I N ( I ) *99999 . 

STATUS(l)  =  NP ( 1 ) 

Z(1)*0. 

PCVU)*0. 

TLL(I)=C. 

382  CCNTINUE 
C 

C  STAFT  SIMULATION 

C 

HR  I  IE (6  »$ )  START  SIMULATION* 

MRITE(6,«)  RUN  CYCLE  *  »,ICYCLE 

C 

C  CALCULATE  ES  AND  LS  BY  CPM  ANO  SET  INITIAL  PRIORITIES 

C 

CALL  LSCHEC(EDUR,TFIN1S, ISCFIN, ITYPE  ) 

CALL  SORTUS.PRI  .NNOOE , *NCWR 1TE * > 

C 

C  SCHEOULE  CAPACITY  CHANGES 

IF(NCC.LE.l)  GOTO  313 

DC  5*3  1=2. NCC 
TM=TFCC ( I ) 

5*3  CALL  SCFEDI 75C0  ♦  I.  TM) 

C 

c  SCHEDULE  REPORTING  CATES 

313  IF  ( f.REPDT  *EQ  .0)  GOTO  31* 

DO  5**  I  *1  .NREPOT 
TM=FEPDAT (II 

CALL  SCFEDteOOO  ♦  I,  TM) 

5**  CONTINUE 
31*  CONTINUE 

C  INITIALIZE  AVAILABLE  RESOURCES 

DC  132  J=1.NSHCP 
132  ARI J) =  C A F ( J ) 


6MI02  76' 

BMI02  77i 

BM  102  76» 

BM1C2  79* 

B  MI  02  601 

BMIC261' 

fiMIC2e2< 

BM1C283* 

BM1C28A' 

8  MI  02  85' 

EMI  C266' 

BMIC287' 

BMI0288) 

BM 10289* 

BMIC2  90< 

6MIC291' 

BM1C292' 

BM1C293* 

BMIG29*' 

EM  10295' 

BM 1 0296' 

BM10297. 

BM1C29E 

EM10299' 

b  M 10300' 

BMI0301* 

EM  10302* 

BMI0303« 

BM1030*' 

BMI0305* 

BMI0306' 

BMI03071 

BM10308I 

BMI0309I 

EMI03101 

BM1031H 

BM  103 12( 

BM10313C 

BMI031*t 

BM10315( 

BM1C3I6< 

t  MI  03 1 7> 

6 F  1 03 1E< 

8MI031VI 

bM  I  0320- 

EM  10321' 

8MC322 

EM  103231 

BM1032*< 

BM  1 0325- 

eM032t' 

BMI0327. 

BMI03261 

tM I  0329 

e*-I0330> 


non  nnnoono  oo  r*  o  c* 
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C  INITIALIZE  INTENSITY  MATRIX 

OC  244  1=1 ,NNOOE 
2(1  )*0 . 
pcvd  )*o. 

244  TLU ( I ) =0  . 

C 

C  PUT  ACTIVITIES  WITHOUT  PREDECESSOR  INTO  READY  LIST 
NACT I V=C 
NREADY=0 

DO  112  1  =1 » I  TURN 
I F ( NP ( I  ).NE.O)  GO  TO  112 

C  IF ( lTYPEi  I  I.GT.4 )  GO  TO  2112 

IF ( ITYPEd  ).GE.3)  GC  TO  2112 
CALL  ADDLU.PRI.IREADY.NREADY) 

GO  TO  112 
2112  T  ST  ART ( I ) -C • 

TF1MSI  I)=C. 

C  IFUTYPEI  I). EG. 5)  TF  INISf  I)  *DUR  (I) 

CALL  AODLd.PRI.IACTlV.NACTIV) 

CALL  SCHED(250C+1,TFIN1S< Id 
2(I)=2U(I) 

112  CONTINUE 

SSSSSSSSCS  START  SIMULATION 
GOTO  810 

GET  THE  NEXT  EVENT  FROM  THE  LIST 

41  CALL  RMVICCDE.TIME.LAST, CLOCK) 

ELTM=TI*E-CLOCK 
CL0CK=TIME 

IF(LAST.EQ.3)  NR 1TE (6 ,*> • TIME  LIMIT  EXCEEDED' 

♦  ,'TIME='.CLOCK,'  COOE= ' »CODE 
IF ( LA  ST  .GE  *2 )  GOTO  91 

CEDE*  C*  :  START  DELAYED  FOLLOWER  CF  A  MILESTONE. 
CCDE=25C0*  :  AN  ACTIVITY  HAS  FINISHED.  START  FOLLOWERS. 
CCDE=5000*  :  FLOW-TRANSFERRED  FOLLOWER  START 
CODE  =  7500  +  :  CAPACITY  IS  CHANGED. 

CODE  =8000*  :  REPORTING  DATE 

IFICOCE  .IT. 2500)  GOTO  51 
IFlCOCE.LT.fOOO)  GOTO  61 
I F ( CODE  .LT  .7500)  GOTO  71 
IF(COCE .LT.8000)  GOTO  222 

REPORTING  CATE  ...  REPORT  RESOURCE  AVERAGES 

WR ITE (6  »*)  'REPORTING  EVENT.  TIME  IS', CLOCK 
CALL  ACCL'M(TIAS»WCSHOP  ,  NS  HOP  ) 

710  T IA  5  =  CLCCK 

DELT*CLCCK-TACCUM 
1FCCELT.EQ.0.)  GCTO  713 
C 

C  CALCULATE  AVG.  RESOURCES  USED  BETWEEN  DELT 


8P10331 

6KI0332 

6M10333 

BMI0334 

BM0335 

BPI0336 

BMI0337 

BP10338 

BP10339 

BM1034C 

BM 1 0341 

BM10342 

BMI0343 

BP10344 

BP 10345 

BP I 03 46 

BP 103 47 

8P10346 

BM10349 

6PI0350 

BP10351 

BP10352 

BP10353 

BPI0354 

BM  0355 

BP10356 

BP  10357' 

BP10358 

BP10359' 

BM10360* 

6P  10361' 

BPI  0362< 

BM0363( 

BM10364( 

8PI0365' 

BPI 0366' 

BP10367( 

BP103661 

eP10369( 

BMI0370( 

BM10371C 

BFI0372C 

eP10373t 

BPI0374C 

BPI0375C 

BF10376C 

6P10377C 

BP10376C 

BP10379C 

EP103&GC 

BF10381C 

6M10382C 

BP10363C 

6P10384C 

BPI0385C 


o  o  o  o  n  noon  or*  oo 
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DO  711  IRES=1,NRES 

711  ACCWC ( I  RE  S  )* ACUMRS ( IRES)/D£L  T 
DC  712  1SHCP*1,NSH0P 

707MHR ( I  SHOP )*TCTMHR( I  SHOP ) +ACUMSP ( 1  SHOP ) 

712  ACSHOPC  I  SHOP  )*ACUMSPC ISHOPJ/DELT 
T  ACCUM  =  CLOCK 

WRITE (25, 71 A)  ( ACCWCC IR£S),IRES*1 ,NRE  5) 

HR  I  TEC  26 ,71 A)  C AC SHOP ( I SHOP  I , I SHOP*l »NSHUP  ) 
7 1A  FORHAT ( 1CIB) 

713  CONTINUF 

OC  716  IKESsl»NRES 

716  ACUHRSC  1RES)S0. 

OC  717  1SHCP*1,NSH0P 

717  ACUHSPC  ISHCP  )*0. 

IF (LAST .EQ.l )  GOTO  61 
GOTO  A 1 


START  A  DELAYED  FOLLOWER  OF  MILESTONE 
51  I  *CCOE 

CALL  ADDL(l,PRI,IREAOY,NREADY) 

IF(LAST.EQ.l)  GOTO  81 
GO  TO  A 1 

ACTIVITY  IS  FINISHEO  .RELEASE  RESOURCES  AND  UPDATE  THE 
STATUS  CF  THE  FOLLOWERS. 

61  I =CGDE“2500 
PCUV*1. 

LENCTH=LENCTH*1 

IFCTIAS.LT. CLOCK!  CALL  ACCUM C T IAS ,WC SHOP ,NShCP ) 

RELEASE  RESOURCES 
NRS  =ANUH ( 1 ) 

IFC NRS. EG. 0)  GOTO  252 
DC  201  K=1 »NRS 
L*WCSHOPCASHOP(I ,K!) 

AR(L)*AR(L)+A(I,K  )*2(  I! 

2C1  CONTINUE 
252  CONTINUE 

CHECK  THE  TYPE  OF  THE  ACTIVITY 
IFC ITYPEC1 I.NE.2!  GOTO  212 
ACTIVITY  IS  A  TEST 
DROK  A  RANCCM  NUMBER 
CALL  RAMCNRAND.URAND) 

IK  3  TRANK  (  1  ) 

IFCL'RANO.LE.TATTRC  IK,1)  )GCTC  212 
C  FINC  THE  REPAIR  TYPE  NEEDED 

CALL  RANLC NR AND, GRAND) 

SET=TATTR(IK,4) 

IFC SET.LE.C.  )  GCTO  212 
OC  202  L=l,2 

1FCLRAND.LE.SET  )  GOTU  A1A 


EH  1 0386 

6H10387 

EH  10388 

8R10389 

BH.I0390 

BH 10391 

BH 10392 

BH 10393 

BH1039A 

BH10395 

eH10396 

BH10397 

BH 10398 

BH10399 

BHIOAOO 

BHICA01 

BHI0A02 

BH 1 0903 

BHIOAOA 

0HIGAO5 

BHIGA06 

BH 1 CA  07 

enioAos 

BH I CA  09 

BHIOA  10' 

BH  I OA 11' 

BHI0A12 

BHIOA 13* 

BHIOAIA- 

BHI0A15- 

eHI0Al6‘ 

BHIOA  1 7< 

BHIOA  18' 

BHIOA  19' 

BHI0A2O; 

BHI0A2K 

BHIOA 22' 

BHI0A23* 

EH1GA2A* 

BHI0A25' 

BHIOA  26' 

BHICA27 

BMICA2b 

BH  l  CA  29< 

BHIOA  30. 

EHI0A31. 

BHICA32. 

BH10A33I 

BHJ  CA  3At 

BHICA35 

BHI0A36 

BH  I  OA  37' 

BHIOA 3t 

eHICA39 

BHICAAO. 


u  u  o 
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i 


SET=SET+TATTR(lK,L+4) 

eH.10441 

202 

continue 

BM 10442 

41* 

K«TF0LL(1K,L) 

BHI 0442 

ITYRPR*L 

BH10444 

c 

UPOATE  THE  STATUS  OF  THE  FOLLOWER 

BHIG44E 

STATUS(K)*STATUS(K)-1 

BH1044t 

IF( STATLS(K).GT.O)  GOTO  241 

BHI 044  i 

c 

F  INC  THE  TYPE  OF  THE  ACTIVITY 

BHI044, 

1F<1TYPE(K).LE.2)  GOTO  306 

BHI 04 45 

IF(  ITYPEOO.EC.5)  GOTO  506 

BH1045C 

IF(  ITYPE(K).E<5.9)  GOTO  406 

EHI 04  51 

306 

CALL  AODUK.PRI  .1REA0Y.NREADY) 

BHI0452 

GOTO  241 

EH  1 04  53 

4  06 

TST  ART ( K CLOCK 

BH10454 

TFIMS(K)  *CL0CK 

BU0455 

CALL  ADDL(K.PRI.IACTIV.NACTIV) 

EHI0456 

CALL  SCHE0(2500*K, CLOCK) 

BH10457 

2(K)*1. 

B HI  04 58 

GCTC  241 

BHIC459 

506 

AOUR*DUMK)*CLOCK 

BHI0460 

CALL  SCHED(2500+K.ADUR) 

BH10461 

TSTA«T(K)*CLOCK 

EHI0462 

CALL  AODUK.PRI  .  I  ACT I V ,NACT 1 V ) 

EH10463 

TF I RI S ( K  )  *AOUR 

EHI0464 

Z  (K  )  =  1 . 

BH10465 

241 

CONTINUE 

8H10466 

c 

UPDATE  THE  ATTRIBUTES  OF  TEST  FOR 

NEXT  OCCURANCE 

BH1C467 

TATTRUK.l)*!. 

BHI0468 

DLR ( I )*1 

BHI0469 

c 

FINL  EXPECTED  DURATIONS  OF  REPAIR 

AFTER  TEST 

EH104  70 

DC  '04  L*1.2 

BH1C471 

PRUE  (L)=TATTR(IK.3-»L) 

BH104 72 

K *T FULL ( IK  »L  ) 

BH104  73 

RCUR(L)=0. 

BH104  74 

IF(K.EQ.O)  GOTO  584 

8H10475 

ROUR ( L ) *DUR (K ) 

BHI04  76 

NBA  =T0 ( 1 ) 

BH10477 

585 

IS*FP0S(K)+1 

BHI0478 

NEK  =T0 ( K ) 

BH104  79. 

c 

CHECK  IF  TO  NODE  OF  FOLLOWER(K)  IS  EULAL  TO  TO  NOCE  CF  TEST 

BRI0480i 

IFINBA.EO.NEK )G0  TO  584 

BHI04  81' 

RCUR ( L )  =ROUR  (L)*OUR(K  ) 

BH104 62( 

K*FCLL( IS) 

B  HI  04  E)3» 

GOTO  585 

BHIC4841 

584 

CONTINUE 

BHI  04851 

EDUF  ( I )  =RDO'R  ( I T  YR°P  ) 

eHI04e6( 

TF INI S( I)=RDUR( IT YRPR) ♦CLOCK 

EH10487( 

GOTO  144 

EH  1 04  88( 

212 

CONTINUE 

BHI 04  89( 

c 

eH10490( 

c 

UPDATE  THE  STATUS  OF  THE  FOLLOWER 

eH10491( 

c 

BH10492C 

NPF «FP3S(I  Ml 

BH10493( 

KPF *NF ( ] MFPOSt  I  ) 

EHI0494C 

I F ( NF 1 1  J.EC.O)  GOTO  144 

fc  H 1 04  95C 

n  n  on 
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OC  24  L*NPF,KPF 

BHI0496' 

lFICTRANF(L) .NE.l)  GOTO  24 

BH1049?< 

K  *FCLL { L  ) 

BK1C498I 

STATUS(K)«STATUS(K)-1 

BHI0499I 

IF< STATUS(K).GT.O)  GOTO  24 

BM10500( 

c 

RELEASE  FOLLOWER 

BHI050K 

1F(  ITYPE(K).LE.4)  GOTO  30 

BHI0502« 

1F(  1TYPE(K).EQ.5)  GOTO  50 

BHI0503* 

IF ( ITYPE(K)  *EQ*  7 )  GOTO  45 

BHI0504* 

IF(  ITYPE(K).E(3.9)  GOTO  40 

BHI 0505' 

WR I  IE (6  »*) • I  TYPE  ERROR  FOR  ACT • ,K ,* i TYPE ( K )= »,1 TYPE < K  ) 

BHI  05061 

c 

BH10507I 

c 

FCLOWER  IS  A  NOPAL  ACTIVITY 

BH,10508< 

30 

CONTINUE 

BPI0509I 

IF  f  ISWTCH.EO.l)  THEN 

BH  10510* 

c 

DELAY  THE  FOLLOWER  OF  MILESTONE  THAT  HAS  PREDEFINED  OATE 

BMI051K 

CALL  SCHEDIK, CHILE) 

BH10512* 

GC  TO  24 

BH1C513I 

ENOIF 

BHI0514I 

CALL  AOOLtK.PRI.IREAOY.NREADY) 

BMI05151 

GOTO  24 

BMI0516< 

c 

CIMMY  ACTIVITY 

BHI0517I 

AO 

T  ST  ART ( K  )  =CLOCK 

BHI0518< 

TFIMS(K)  =  CLCCK 

BHI05191 

CALL  A0DLIK.PR1 ,  I  ACT  I V  ,NA CT 1 V ) 

BHI0520t 

CALL  SCHEDI2500+K ,  CLOCK) 

BH 10521' 

Z  (K  J  *  1 . 

BHIC522* 

GOTO  24 

BHI  05  23< 

c 

8HI0524( 

c 

ARRIVED  AT  A  MILESTON-EVENT 

BHI  0525( 

45 

CONTINUE 

BHI0526( 

TMILE(MILE(K) J=CLOCK 

BHI  0527( 

T  ST  ART ( K ) =CLOCK 

BHI  C528( 

TFIMS(K)*CLOCK 

BHI  0529( 

CMILE=9UR(K) 

BHI0530( 

IF(TMILE(MILE(K) I.LT.OMILE)  ISWTCH*! 

BHI053K 

GOTO  24 

BHI  0532C 

c 

BH,I05  33( 

c 

•CELAY*  ACTIVITY 

BH 1 05  34( 

50 

ACUR=CUR(K)+CLOCK 

BHI0535( 

T  ST  ART ( K )=CLOCK 

BHI C536i 

T  F I M  S ( K  ) = ADUK 

BH1C5371 

Z  (K  )  =  1  • 

cHI C538C 

CALL  SCHFD (2500+K , ADUR) 

BHlt539( 

CALL  ADCLIK.PRI, I  ACT  I V ,N A CT 1 V ) 

BH  I0540i 

24 

CONTINUE 

BHIC54K 

1SWTCH=0 

BHI 0542( 

144 

CONTINUE 

EHIC543v 

c 

BHIC544* 

c 

UPDATE  ACTIVE  LIST 

t  H 1 05  45( 

CALL  CANCEL(I,IACTIV,NACT1V) 

B  H  I  C54  61 

IF(LAST.EQ.I)  GOTO  61 

BH  I  C5 4  7( 

CCTC  41 

eHIC54b( 

c 

BHIC5491 

c 

FLOW-TRANSFFFRED  FOLLOWER  CAN  BE  STARTED 

BHI0550C 

r»r*o  o  o  o  o  o  o  o  o  n  o  nn  n 
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C  BMI055J 

71  I=CCOE-5COO  BHI0552 

IF ( KF ( I  )  .EC .0 )  GCTG  302  BMI0552 

NPF  *  FPCSC I  )*1  EMI  0559 

KPM  *  FPCS  ( 1  I  +  NF  Cl)  BMI0555 

DC  301  L*NPF,KPF  BM.10556 

K  =FCLL  (  L  )  BMI0557 

STATUS(K)*STATUS(K)-1  6M1055t 

lFCSTATUS(K).GT.O)  GOTO  301  BM10559 

1F(CUR(K).LE.0.)  GOTO  391  BMIG56C 

CALL  AOOL(K  tPRl,  IREADY.NREADY)  BM.I0561 

GCTC  301  EMI0562 

391  CALL  AODL(KfPRltlACTlVfNACTIV)  EH10563 

CALL  SCHE0(?500*K,  CLOCK)  BHI0569 

TSTART(K)=CLOCK  BM1C565 

TF  IM  S (  K  )=  CLOCK  BMI0566 

Z(K)  =  ZU(K)  BM1C567 

301  CCNTINUE  BM10566 

302  1F1LAST.EQ.1  )  GOTO  81  BMIG569 

GCTC  91  EM1057C 

BMI0571 

LAST  EVENT  AT  CLOCK.  ACCUMULATE  RESOURCES  USED  BMI0572 

BM1G573 

81  CALL  ACCUM(TIAS,RCSHOP,NSHOP)  BM10579 

LAST*C  BMI0575 

CHECK  FCR  END  OF  SIMULATION  BM10576 

MODIFIED  NCI  TO  WRITE  AVG.  RES  FOR  THE  LAST  PERIOC...  BMI0577 

B1C  IFtNREADY.EC.O.ANC.NACTIV.EQ.O)  GOTO  710  BM1C578 

eiO  IF(NREADY.EC.O.AND.NACTIV.EO.O)  GOTO  91  EMIC579 


881  CONTINUE 

lF(NACTIV.FC.O)  GO  TO  870 
CHECK  THE  ASSIGNMENT  POLICY 
IF  ( IR  APCL  .NC  .2 )  GO  TO  870 

UPGRADING  AND  DOWNGRADING 


DC  196  1 =1 ,N ACT  I V 
K  *  1  ACT  I V 1 1 ) 

IF( ITYPE (K ).GT.2  )  GC  TO  196 
ZMEX=Z(K)-ZL(K) 

IT (ZMEX.LE .0.)  GC  TG  196 
ZNEK=ZL(K) 

ADD  UP  RELEASED  RESOURCES 
NP S  =  AN'JM  C K  ) 

DC  198  L  =  1 ,NR S 
J=WCSHOP(ASHOP(K  ,L  ) ) 

198  AR(J)=AR(JMA(K,L)5ZMEX 
CALL  RESCHD(K,ZNEW,AR  ) 

196  CCNTINUE 

INTENSITY  UPGRADING 


BM I 0580 

BMI0581 

EM  0582' 

EMI0583< 

BH1C589I 

EM1C585< 

EMI  0586' 

BMI05871 

BM.l  05881 

EM10589( 

EMI  0590( 

EMI0591C 

BMI05921 

EMI 0593C 

EMI C599( 

EMI0595C 

EMI0596C 

EMI0597C 

6M10598C 

BMI0599C 

BM10600C 

EM  J0601C 

EM1C602C 

EMIC603C 

eM!C609C 

EM1G605C 


67C  CONTINUE 


FILE:  8F1C0RG  FC'RTRAN  A 


VM/SP  CMS  RELEASE  3.1.E  851112.  CFC  -  U.C.  BERKELEY 


NRUN=1 

BFI0606 

e62 

CONTINUE 

BFIC607 

M  =0 

BFIC606 

IF(NACTIV.EC.O)  GOTO  531 

BF 10609 

c 

EMI 06 10 

OC  151  I =1 »NACT I V 

EF10611 

K  =  1  ACT  I V  < 1  1 

BF 1 06 12 

IF(ITYPE(K).GT.4)  GOTO  151 

BF10613 

IF ( 2 ( K J  .EO.ZU(K)  )  GCTO  151 

EFIC614 

IF(NRUN.EQ.2)  GOTO  190 

BFI0615 

1F(LS(K ) .GT.TFINIS(K) )  GOTO  151 

BMIC616 

190 

CONTINUE 

6FI0617 

F=M*1 

BFIC616 

1  RE  V ( H ) =K 

BFI0619 

DRVIM)=LS(K)-TFINIS(K ) 

BP  1 06  20 

151 

CONTINUE 

EF10621 

531 

CONTINUE 

BF  10622 

NTURN*N 

BF1C623- 

IFINREADY.EC.O)  GOTO  532 

BF  10624* 

DC  641  1*1  iNREADY 

BFI0625' 

M=M41 

E  F  1 06  26' 

J=1READY { I ) 

BFIG627* 

IREV(M)=J 

BF1G628 

641 

ORV(M)*LS( J)-CLOCK-DUR(J) 

BFI06  29' 

532 

CONTINUE 

EFI0630' 

1F(F.E3.0)  GOTO  200 

BF10631- 

c 

BF 106  32' 

c 

SET  PRIORITIES  ACCORDING  TO  QPV (L AT E NESS 

SCO  RE  ) 

BF10633( 

CALL  SQRTlCRV.NPRl ,  M , * NO WRITE' ) 

EFI0634. 

c 

6FIC6  35: 

DC  161  1=1. r 

BFI0636* 

c 

BF10637( 

JI=NPRI ( I) 

BFIC638. 

JK*IREV( JI ) 

BF  106  39c 

ZFEX=ZU< JKWCJK ) 

BF  1 06  40C 

1F(CUR( JK) .LE.O)  GOTO  559 

BFI0641C 

PC0V=PCV(JK)4(CL0CK-TLU(JK))«Z( JKJ/DURC JK ) 

8F10642C 

559 

IFCOURI JK) .LE.O)  PC0V«1. 

BF10643C 

I F ( NRUN  .EQ  .2 )  GOTO  571 

BF.IC644C 

IFILSUK  ).LE  .CLOCK)  GOTO  571 

BFI0645C 

ZC=<( (l.-PCOV)*DUR< JK))/(LS( JK  )-CLOCKM~ 

Z  ( JK ) 

B  F 1  06  46C 

IF(ZMEX.GT.ZC)  Z*EX=ZC 

EFI0647C 

571 

CONTINUE 

BFIG648C 

c 

EF10649C 

NPS  *ANUM ( JK  ) 

EF10650C 

IF  (NRS.EO.O)  GL'TO  96 

EF1065K 

DC  171  L  =1 *NR  S 

BF1C652C 

J=WCSH'JP<ASH0P(  JK.D) 

BF IC653C 

IF(A( JK,L) .LT..0001)  GOTO  171 

BFIC6541 

ZAR*AR( J)/A(JK,L> 

BF1C655C 

IF(ZMEX.GT.ZAR)  ZNEX=ZAR 

E  F 1 0656C 

171 

CONTINUE 

EF10657C 

91 

CONTINUE 

BF 1 C658C 

c 

EF1C659C 

IF(2MEX.LE.0.01  JG'JTO  161 

EF10660C 

i 


i 


noo  oooo  o  o  non 
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ZN£NSZMEX*Z(JK) 

C 

C  CHECK  PREDECESSORS 

IF INPCJK  I.EO.OI  GOTO  310 
I START=PPUS( JK)+1 
IENE  *NP ( JK  J  +  PPC5 ( JK ) 

C 

C  CHECK  FLOW  TRANSFERS 

DC  210  IPOS* I  START  * 1END 
IF(CTRANP(  1PCSI.EQ.1)  GOTO  2 10 
1K=FRE0( 1PCS) 

1F(TF1N1S(1K).LE. CLOCK)  GOTO  210 
1F(CUR( JK) .LE.O)  GOTO  210 

ZFAXI=DUR( JK)*(1.-CTRANP( IPOS) -PCLV ) / (TF IN  IS (I K ) -CLOCK ) 

1FI2MAX1  .LT.2NEW)  ZNEW=ZMAX1 

2HEX*2NEH-2(JK) 

210  CONTINUE 
310  CONTINUE 
C 

1F( 2NEM.LT  .  ZL ( JK ) )  GOTO  161 
C  UPOATE  AVAILABLE  RESOURCES 

IF(NRS.EC.O)  GOTO  196 
DO  172  K*1,NRS 
L*HCSHOPUSHOPUK,K) ) 

AR( L) =AR(L)*A(JK,K)«2MEX 
172  CONTINUE 
196  CONTINUE 

RESCHEDULE  FINISH  AND  PROGRESS 

IF ( JI.LE.MTURN)  GOTO  115 
FOR  NEWLY  SCHEDULED  ACTIVITIES 
CALL  CANCEL ( JK  •  1 READY  ,NRE  ADY ) 

CALL  ADCLIJK  .PRI » I  ACT  1 V, N ACT  I V ) 

T  ST  ART ( JK ) =CLOCK 
TLU ( JK ) *CLOCK 
115  CONTINUE 

1F(2NEW.EQ.2(JK) )  GOTO  161 
CALL  RESCHCI JK.2NEW.AR) 

161  CONTINUE 

200  CONTINUE 

IF  (NRUN.EC.2)  GOTO  *1 

RESCHEDULE  TRULY  SLACK  ACT'S  IF  CRITICAL  ACT.  DtLAYEC 

CALL  CRITIC (ZU »PR I ) 

NRUN=2 
GOTO  882 

RESOURCE  CAPACITY  CHANGE 


EFI0661 

BF  1 0662 

6H1C663 

BF1C669 

BHI 0665 

fiF 1 C666 

6FIG667 

BF I 0668 

BFI0669 

BF1C670' 

eFIC671' 

BFIC672' 

BFIC6  73) 

BFIC6  7A* 

BFIG6  75I 

BF106  76I 

BF10677< 

BF106  78< 

BFIC679( 

BF1GC80( 

BF1C68K 

BF1O602( 

BF1C683C 

BF10689C 

8FI0685C 

EFI0686C 

BFIC687C 

BFI0688C 

BF1C689C 

BFIC690C 

BFIC691C 

BF1C6920 

6FIC6930 

£F1 06990 

EF1G6950 

BF I  06960 

BFIC6970 

EF10t98C 

BF1C6990 

BF 1 C  7000 

EFI07010 

BFIG7020 

BF1C7030 

EF 1 07090 

BMG7050 

EF 107060 

BF10707C 

EF 1 070b0 

EFIG7090 

eFK7100 

BF  107110 

BF 1 07 120 

EFIC713C 

EFIC7190 

BF1C7160 


222  CONTINUE 


F  ILF* 

0MICORG  FCRTRAN  A  VM/SP  CMS  RELEASE  3.1.E  851112*  CFC 

-  U.C.  BERKELEY 

K=CC0£-7500 

BMIC7160 

OC  1121  I=1.NSHQP 

BM 1 07 170 

AR< 1)=AR(I)+CIC(K*1 )-CAP< I) 

6MI07180 

CAP(I)»ClC(K,Ii 

BMIC7190 

1121 

CCN1INUE 

BM1C7200 

C 

6M10721Q 

C 

SEARCH  IF  THERE  IS  ANY  CAPACITY  V10LAT1CN 

BMl 07220 

CC  1131  1=1 »NSHOP 

BM107230 

IF ( AR ( I  ). IT. -O.Ol)  GOTO  11*1 

BM1C72*0 

1131 

CONTINUE 

BM107250 

1231 

CONTINUE 

EMI  07260 

IFILAST.EQ.il  GOTO  81 

BM107270 

GOTO  *1 

BM1C7280 

C 

BM 107 290 

C 

DOWNGRADING  INTENSITIES 

BHI 07300 

C 

BM 107310 

C 

CREATE  LIST  OF  ACTIVITIES  TO  DOWNGRADE 

BM107320 

11*1 

CONTINUE 

BMl 07330 

WRITE'6,*)  INTENSITY  DOWNGRADING  TRIED 

BMI 073*0 

N*0 

BMIC7350 

DO  1151  I=1,NACTIV 

BM I 07360 

K-1ACTIVU) 

EM.1C7370 

IFIITYPE(K).GT.A)  GOTO  1151 

BM1C738C 

IF  (  2  (  K  >  .IQ.ZL(K) )  GOTO  1151 

BM107390 

M=M.41 

BM 1 07*00 

IREV(N) =K 

BM1C7*10 

0RV(M)  =  TFIMS(KI-LS(K1 

BM107 *20 

1151 

CONTINUE 

BMIC7*30 

IF(M.LE.O)  GOTO  37 

BMI07**0 

CALL  SORT(CRV,NPRI »M. 'NO WRITE' ) 

EMI  07*50 

ZLCW=1. 

BM1C7*60 

I  IRON  =  1 

BMIC7*70 

CALL  DWNGRC(M,ZLOW,Z,IIRUN,PRI } 

BM1C7*80 

C 

BM 107*90 

IF(JFLAG.EC.O)  GOTO  1231 

BM I 07500 

C 

BMIC7510 

C 

INTERUPT  ACTIVITIES 

BM 107520 

37 

CONTINUE 

BM1C7530 

N  *0 

BHC75*0 

DO  2152  1  =  1 *NACT  IV 

BMl 07550 

K=1ACTIV(II 

BMl 07560 

IF  (  1 T  YPE ( K ) « GT • *  )  GOTO  2152 

BMl 07570 

IF(Z(K).LE..0G01)  GOTO  2152 

BMl 07560 

EM I0759C 

1  Rb  V  (  H  )  =K 

6HC7600 

CRV(M)=TFIMS(K)-LS(K) 

BM1C7610 

2152 

CONTINUE 

BMIC762C 

IHM.EQ.C)  GOTO  1173 

BM1C7630 

CALI  SORT (CRVfNPRI ,M, • NO WRITE* ) 

BM1C76<»0 

ZLOR=C  • 

BMlC7t5C 

I  IRON  =2 

BM1C766C 

CALL  C^NLROIH.ZLOW.Z, IIRUN.PRI) 

6  M I C  7670 

GOTO  1231 

eMC768C 

C 

EMI  07690 

1173 

CONTINUE 

EM107700 

n  o  n  o  n 
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C  THERE  IS  NC  ACTIVITY  AVAILABLE 

WRITE (6 ,*) •Ml  ACT  AVAILABLE  IN  DOKNCR AD ING . . .LUGI CAL  ERROR..* 
STOP 

END  OF  SIMULATION 


91  WRITE (6ft)  'END  CF  SIMULATION.  TIME  IS  *, CLOCK 

WRITE  OUTPUT  FILES 
IF ( Mi  ILE  .EC .0 1  GO  TO  95 
DC  59  I=1,NM1LE 
1 1 =TM ILE ( 1  )-l 
IF(II.EQ.-l)  11=0 
CALL  DCUNV ( 1 1 » IM I LE ) 

SMILE  ( I)  =  IMILE  (1)«10000*IM]LE  ( 2 ) *1  CO* IM ILL  13) 

99  CONTINUE 

WRITE (5 7, 71 A )  ( SMILE (1) *  I «1 *NM1 LE ) 

HR  1 TE (2  7 ,715 )  (T M I LE Cl) , I =1 • NM I LE 1 
C 

95  NSHCPP  =  NSHCP-»1 
AT0T(NSH0PP)=0. 

DC  5555  KKL=1.NSH0P 

A  TOT  ( NSHOPP ) = ATOT  ( NSHQPP  )*TOTMHR(KKL  ) 

5555  TCTMDYI KNL)=TLTMHR(KKL) 

TCTMDY(NSHCPP)=ATOT (NSHOPP) 

WRITE (28,715)  ( 1 CTMDY ( I ) , 1= 1 .NSHOPP ) 

C 

lF(lCYCLE.GT.l)  GO  TO  2002 

IF (  IRAPCL.EG.l)  HR ITE ( 36 , 2003 )  NAME .NCYCLE , I  LOW  ,  1 LP 
1F(  IRAPCL.E0.2)  WR I TE ( 36 , 2005  )  NAME .NCYCLE ,1  LOW , ILP 
WRI TE  (3 6  ,2005 )  SMQN , SDAY , SYR 
WR I TE ( 36  ,2C06 ) 

C 

IF(lCALD.EC.l)  THEN 
DO  2000  I  =  1,NNL]DE 
KSTART*TSTART  (!)•♦. 5 
KFINI5  =  TFIMS(I)+.5-l 
IF(KFINIS.LT.KSTART)  kfinis=kstart 
IF ( I  TYPE (I).EQ.7)  THEN 
II “MILE ( 1 ) 

KSTART=TMILE(II)-1 
IF  (KSTART.EC.-1)  KSTART=0 

kfims=kstart 

END  IF 

IF ( 1  TYPE ( I ) .EQ.9 )  K ST  ART  =KF  INIS 
CALL  DCLNV (KST  ART .CALNDl ) 

CALL  LCCN V (KF IN  I S, CALND2 ) 

WRITE  (36,2001  )  1  .FROM ( 1 ) , TO (I) ,C A L ND1  ,C AL NC2 
2000  CONTINUE 
ELSE 

CO  2 C09  I  =  1,NN0CE 

2C09  WRITE  (36  ,2008)  1  ,FROM(  I )  ,T0(  I )  ,T  ST  AMT  (  1 )  ,  TF  IM  S(  1 ) 
END  IF 

2002  CONTINUE 

C 


BERKELEY 


BM10771C 

BM1C772C 

BM1C773C 

BM10775C 

BM1C775C 

BKI0776C 

BM 107770 

BMI077BC 

BM107790 

6MIC7800 

BM1C7810 

BM10782C 

BM 1 07830 

BM107850 

BM 107850 

BM1C786C 

6MI07870 

BM 107800 

BM 107890 

BMI07900 

BMI07910 

BM107920 

BM107930 

BMIC7950 

BM 1 07950 

BM.  1 079b0 

BMIC797C 

BMIC7980 

BMIC7990 

BM 1 08000 

BM106010 

EM106020 

EMI  08030 

BM 1 08050 

BM10B050 

BMlOeObO 

BMI08070 

BMI08080 

BM10809C 

BM 1 08 100 

BM  1 08 110 

8  M I  08 120 

BM 1 08 130 

eMIC8150 

BMIC8150 

bMlC6l60 

BMC8170 

BM1CE16C 

eMlC8190 

BM1C8200 

BM1CE210 

EMI C8220 

BMJC8230 

BMIC8250 

6M  108250 
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C  WRITE  RIN-STATUS  REPORT 
IF ( ICYCLF.EQ.l)  THEN 
WRITE (AO,  1001 J  NAHE 

1001  FCRMATU50) 

1 F ( IRAPOL  . EG  .  1 )  HR1 TE ( 40 , 1002  ) 

1 F ( IRAP0L.EQ.2)  WRI TE(40,1003) 

IF (NCYCLE  .EQ.l )  HR  I TE ( 40,1004 ) 

IF (NCYCLE .GT.l)  WR 1 TE ( 40, 1005 )  NCYCLE 
IF(NTEST.EC.O)  WR I T  E (40  ,1006  ) 

IF (NTEST.EO.l)  WRITE (40 ,1007) 

WRITE (40, 1009)  NNODE , 1  TURN , NRE S ,NSHUP, 1  LOW, IUP ,K TENC ,NCC ,NRE POT , 
4  1SCFIN.NM1LE 
END  IF 

1002  FORMAT! 'INTENSITY  ASSIGNMENT  POLICY  :  UPGRADING  ONLY') 

1003  fcrhati • intensity  assignment  policy  :  up  i  downgrading*) 

1004  FORMAT ( 'NO  SIMULATIONS  •  1  CYCLE') 

1005  FORMAT! 'SIMULATIONS  S', 15,*  CYCLES') 

1006  FORMAT  (  'TEST  ACTIVITIES  &  REWORKS  :  NO 

1007  FORMAT (  'TEST  ACTIVITIES  &  REWORKS  :  YES') 

1009  FORMAT (  'NUMBER  OF  ACTIVITIES  S', 15,/ 

4  'NUM.  OF  ACT.  (NO  REWORKS)  S', 15,/ 

♦  'NUMPER  OF  WCRKCENTER S  S',15,/ 

♦  'NUMBER  OF  SHOPS  S',15,/ 

4  'LOWER  BOUND  OF  INTENSITY  S',15,/ 

♦  'UPPER  BOUND  OF  INTENSITY  S',15,/ 

•»  'LIMIT  OF  PROJECT  FINISH  S',15,'  (FUR  SIMULATIONS)  *,/ 

4  'NUMBER  OF  CAPACITY  CHANGE  S',15,/ 

4  'NUMBER  OF  REPORTING  OATES  S',15,/ 

4  • PROJECT  TARGET  FINISH  TIME  S',15,/ 

4  'NUMEER  OF  MILESTONES  S',15  ) 

C 

REWIND  17 

WRITE (17,1777)  NR AND 


2C03  FCRMAT(1H1,120(1H*),//,6X, 'PROJECT  NAME  S  *,A2C,15,'  RUN(S)', 
4'  USING  UPGRADING  ONLY', 

♦'  INTENSITY  RANGE  ',15,'  -  ' , 1 5 ,// , 1 2 C ( • * • ) ) 

2004  FCRMAT(1H1 ,  120 ( 1H= ) .// »6X , 'PROJECT  NAME  :  ',A2C,15,'  RUN(S)', 

4*  USING  UP  4  CCWN  GRADING', 

♦'  INTENSITY  RANGE  ',15,'  -  • , 1 5 ,// , 1 2C (  '  *  • ) ) 

2005  FCRMATUH  ,'  PROJECT  START  CATE  S', 315,/) 

2006  FORMAT ( •  ACT  I V I T Y « , 20X , '  SCHECULE',/, 

♦  •  INTERNAL  *',3X,'  I»,5X,'  J',4X, 

4  'START  DATE • , 1 1 X , *F INISH  DATE  ' ,/ , 70  (  •-  • ) ) 

2C01  FCRMAT(5X,I4,5X,A4,5X,A4,5X,3(1X,12),13X,3(1X,12)) 

2006  FLRMAT(5X,I4,5X,A4,5X,A4,7X,F7.1,15X ,F7.1) 

323  FORMAT (AS0,8(/49X, 16) ) 

1777  FORMAT! 110) 

951  FCRMAT120I4) 

953  FORMAT ( 2CF4 .2) 

C  954  FCRMAT(4F1C.1 ) 

952  F0RMAT(6X,A4,2X,A4,3X,I4,2X,I1  ) 

C  952  F0RMAT(fcX,A4,9X,14,2X,ll) 


B Ml  08 260 
BMI0B270 
BM108280 
BM108290 
BM I 08300 
BM1C8310 
8M1C8320 
B  M 1 08330 
BMI 06340 
6M 1 08350 
BMI 08360 
8MIC8370 
BM1C8380 
EMI08390 
BM108400 
B  M I  08  410 
BMI08420 
BM1C8430 
BMI 08  440 
BM106450 
BM  106460 
BMIC8470 
6MI08460 
BM108490 
BMI 08500 
BM 108510 
BM108520 
BM1C8530 
BM 108540 
BMIC8550 
6MI06560 
BM 108 5 70 
8  M.1C8  580 
BMI Cb 590 
BMI 08600 
8M106610 
BM10B620 
B  M 1  Ob  6  30 
8M1 08640 
BM1C6650 
BMI C8660 
BM10B670 
BM1066B0 
BMI 0B690 
BMICfc  700 
B  M I  Cb  710 
BM108  720 
eM10b730 
BM I CB  740 
fc  i"  I  Gb  750 
EM06  76C 
b  M I Cb  7  7C 
BMICb  78C 
BM I Cb 790 
BMIC860C 


n  o 
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961  FCRPA  T ( 5  X  ,  9 1 5  ) 
963  FCRF AT { 10F6  *2  ) 
3001  FCRHATC 1CF8.2) 
1999  CENT  1 NUE 
9999  STOP 
END 


SUBROUTINE  C ANCEL ( I , 1 X ,LX ) 
THIS  SUBROUTINE  CANCELS  THE 
AND  UPDATES  THE  LIST  LENGTH 
DIMENSION  IX(IOOO) 


INDEX ( 1 ) 
(LX) 


FRLH  THE  LIST 


IF(LX.EC.0  )  GOTO  30 
N A*  I 

DO  12  K  S1 *  L  X 
IF(NA.EQ.IXIK)  )  GO  TO 
12  CONTINUE 

CODE  "  I  *  DOES  NOT  EXIT 
RETURN 
22  LX*LX-1 
N=K 

DO  14  J  =N  , LX 
IX ( J)*IX(J-U) 

14  CONTINUE 
1 X ( LX  +  1 )  =0 
30  CONTINUE 
RETURN 
END 


GO  TO  22 


LIST. 


SUBFOUTINE  ADDL ( I  ,PR I , IX f LX ) 

THIS  SUBROUTINE  ADDS  INDEX  (1)  TO  THE  LIST  (IX)  AND  UPDATES  LIST 
LENGTH,  (LX) 

DIMENSION  IX(IOOO),  1Y(1000) 

INTEGER  PR  1 (2500 ) 

N  A=  I 

IF(LX.EC.O)  GOTO  30 
DC  12  K=1,LX 
JA= IX ( K  ) 

1 F  < PRI(NA)  .LT.PRI (JA) )  GOTO  20 
12  CONTINUE 
LX=LX*1 
IX(LX)*NA 
GOTO  40 

20  DC  14  J  - K  , L X 
14  IV(J4l>«IX(J) 

I  X  (  P  )  =N  A 
LX  =  LX-»1 
M=K-»1 

DO  16  J  =  M  » LX 
It  I  X (  J)  =  I Y ( J ) 

GOTO  40 


BP10681C 
BPl0b82C 
BPI0883C 
BP10684C 
BPIC885C 
BNI0B860 
BP10887C 
BP10B86C 
BP10B890 
BP10B900 
BP10E910 
BPI 08 920 
BP10b930 
BM  08940 
BPIG8950 
B Ml 08 960 
BHI08970 
BM  08  980 
8M  C699C 
BMC9  000 
BM  09010 
8M  09020 
BMC903G 
BMC9040 
BM  09050 
BP  109060 
eM09070 
BM  09080 
BNI09090 
BM09100 
BPIG9110 
BMC9120 
BP  1 09 130 
BM  09140 
BMC9150 
BM09160 
BP 109 170 
BMG918C 
EP10919C 
BPI 09200 
BP109210 
BP1C922G 
BPIC923C 
BP  1 09  240 
BP  109 250 
6P10920C 
BPI 09270 
8P109280 
BP 109 290 
BPI 09300 
EHC9310 
BP  1 09320 
BP1C9330 
BP1C9340 
eP109350 


r>  o  n 
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30 

IX(1)=NA 

BHIG9360 

L  X=  1 

BHIC9370 

40 

RETURN 

8M109380 

END 

BH I 09390 
BNI09400 
BMIC9410 

SUBROUTINE  SORT ( B 1 ,P 1 ,KL 1  MI T , WRTCOD ) 

BM109420 

BHI09430 

THIS  SUBROUTINE  SORTS  A  VECTOR  Bl,  WHILE  RESERVING  ITS 

BHIC9440 

ORIGINAL  ORDER  IN  VECTOR  PI.  THE  SUBROUTINE  USES  THE 

BH1C9450 

•CUICKSCRT*  METHOD. 

BH1C9460 

BH109470 

REAL  6(4500)  .VECOUT (4 500 ) ,B1 (KL IM IT ) 

B HI  09 480 

INTEGER  P(4500),  POUT ( 4500) ,P1 ( KL IMIT  ) 

BH109490 

CHARACTER-7  WKTCCO 

6M1G9500 

DC  100  1*1  .KL  1M 1 T 

BHI 09510 

8(1  )*B1(  I) 

BHI09520 

100 

P  ( I  )  =  I 

BH I 09530 

AL1MIT*FL0AT(KL1MIT) 

BHI09540 

ANUM-ALCG1C(ALIMIT)/ALOG10(2.) 

6M109550 

NLM*ANUM 

BHI09560 

IF(ANUM.GT.NUM)  NUM  =NUM  *1 

BH109570 

MM*2--NLH 

BH1C9580 

NRES1C=MM“K LIMIT 

6HIG9590 

OC  101  L  =  1  .NRESID 

BH109600 

101 

B(KLIM1T4L)=1.E10 

BMIC9610 

00  6  1  =  1, NUM 

BHIC9620 

K=2-=>I 

BHI09630 

M=MM/K 

BHI 09640 

DO  4  J 1  *  1  ,M 

BHI 09650 

L  ST  ART  =K* ( Jl” 1 )  41 

BHI 09660 

LEND*  LSTART4K-1 

BHI 09670 

K2*K/2 

BH1C9680 

K  1  =  0 

BH1C9690 

J2=L  ST  ART 

BHI 09  700 

1 

I F ( 8 C J2).LE.B(J24K2))  GOTO  2 

BK109710 

VEC0UT(LSTART4K1)=B( J2+K2) 

EHI09720 

PCUT(LSTART4K1)=P(J24K2) 

BHI 09  )30 

B(J2*K2)=1.E10 

BHI 09740 

K2-K2*l 

EH  1 G9  750 

GC  TO  3 

BH 1 09  760 

2 

PCUT (LSTART4K1 )=P( J2) 

BH 1 09  770 

VECCUT (LSTART*K1)=3(J2) 

EHIC978C 

B ( J2 ) = 1 .E 10 

BH1C9790 

J2= J2+1 

EHIC9800 

Kl=K2-l 

EH  1 09  B 10 

3 

J?=J2-LSTART*1 

B  H I C9  820 

IT( J3.GT.(K/2))  GOTO  31 

BHIC9E30 

I  F ( (J34K2).GT.K)  GOTO  31 

BH1C9E40 

K1 =K1 41 

BH  1G9850 

GETC  1 

BHI0986C 

31 

DC  32  L=LSTART .LEND 

BHIC9B70 

IF  (H(L  )  .GE . 1 .E 10)  GOTO  32 

BHIC9680 

K1  =M41 

EH1C9890 

VECCUT (LSTART  +  Kl )=B  (L) 

EH1C9900 

o  o  o  o  r»  n  o 
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POLl (LSTART+K1 )=P(L) 

32  CCNT I  SUE 

4  CONTINUE 

DC  5  J*1  .KllMIT 
P(J)*PCUT<J) 

5  8 ( J )  =  VE  COUT ( J ) 

6  CONTINUE 

DO  7  1= 1 ,KLIMI T 

IF(^«RTCOC•NE.'N3HRlTE,  I  61(l)=t(l) 

7  P 1  ( P  C  I  )  )  =  I 
R  t  T  OR  N 
END 


SUBROUTINE  P 1 CK ( P  »K ,K  L IM ) 

DIMENSION  P(IOO) 

SET  =0  . 

DC  20  1*1, KLIM 
SE  T  =SE  T  +P ( 1 ) 

CALL  RAND (NR AND , UR AND  ) 

IF(URANC.LE  .SET)  GOTO  30 
20  CONTINUE 
30  K  =  1 
RETURN 
END 

FUNCTION  ENS (PS , ALFA ) 

THIS  FUNCTION  CALCULATES  EXPECTED  NUMBER  OF  TRIALS  NEE  01 D 
A  TEST  ACTIVITY  TJ  EE  SUCCESSFUL,  PS*FRCEABIL1 TY  CF  SUCCESS 
AT  THE  CURRENT  TRIAL  AND  ALFA  CONSTANT  INCREASE  IN  PROBABILITY 
OF  SUCCESS  AFTER  EACH  FAILURE. 

ENS=0 • 

PRO  S  =  P  S 
PROF  =  1 . 

DO  10  1*1,20 
AD*PRCS*PRCF*I 
ENS  =ENS*AC 

IF  < AD. LE .0.001)  GOTO  20 
PR0F=PRCF$(1 .-PROS) 

PROS=PRCS$ALF A 
10  CONTINUE 
20  RETURN 
END 


REAL  FUNCTION  XKE AN (PROF , VAL ,NUM) 

DIMENSION  PR0BI10),  VAL(IO) 

THIS  FUNCTION  CALCULATES  MEAN  OF  AN  ARRAY (VAL) ,  H 1 T H 
PROEABIL  IT  1ES  (PRJB),  NUM  bE INC  THE  NLMl’tR  OF  ELEMENTS 
IN  VAL 
XME  AN  =  0  . 

DC  10  1*1, NUM 

10  XMEAN  =  XMEAN*PRCe ( 1  )-VAL( 1  ) 

RETLRN 

END 


BM1G9910 
BM109920 
BM109930 
BM, 109940 
BMIC9950 
BM 1 09960 
BM109970 
BM109980 
BM109990 
BM1 10000 
BM110010 
BKI 10020 
BM1 10030 
BM110040 
BMI10050 
BM 1 1C 060 
BM110070 
BM 1 10060 
BM1 10090 
BM 1 10100 
BMI 10110 
BM110120 
BM110130 
eM110140 
BM1 10150 
BM] 10160 
BM1 10170 
BM 1 101 80 
BMI 10190 
BMI10200 
BMI 10210 
BMI 10220 
BMI 10230 
BMI 10240 
BMI 10250 
BM  110260 
BMI 10270 
BMji  10280 
BMI 10290 
BMI 10300 
BM110310 
EMI  10  320 
BMI 10330 
BM 1 10340 
BMI 10350 
E  M 1 10  360 
BMI 10370 
feMl 10380 
EMI  10390 
BMI 10400 
EMI  10410 
BM1!  10420 
eM110430 
6MI1C440 
EMI  10450 


on  o 
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SUBFOUT  IKE  AD JF IN (EDUR ,ATFIN ,NNODE ) 

DIMENSION  PCVI2500),  TLU(25CO),  TF IN  1 S< 2500)  ,2 (25CO  ) 

01MENSICN  ATFINI2500) ,E0UR(2500) 

INTEGER  OUR (2500 ) 

CCMFON/BBB/  PCV.TLU.TFINI S, 2 .CLOCK, DUR .LENGTH 

C  THIS  SUBROUTINE  FINOS  ADJUSTED  FINISH  TIMES  FLR  TARGET  FINISH 
C  CALCULATIONS. 

DC  10  1*1 ,  NNCDE 

I F  1  TF  INISI I) .EQ. 99999.)  GOTO  11 

IFUFINlSm.LE. CLOCK)  GOTO  11 

PC0V  =  PCV(1  )  +  (CLOCK-TLU(I  )  )*2{I)/0UR( I) 

IF ( 2 ( I  )  .LE .0 .  .AND.  PCOV.LE.O.)  GOTO  11 
A  TF  IN  I  I  )  =CLOCK*EO'JR  ( I )  -PCOV*DUR  1 1 ) 

GOTO  10 

11  ATFINII  )=TF1NIS(I) 

10  CONTINUE 
RETURN 
END 

SUBROUT  INE  LSCHEDIDUR  , TRIMS,  1SCF IN,  1  TYPE  ) 

THIS  SUBROUTINE  FINOS  EARLY  t  LATE  FINISH  TIMES  FOR  ACTIVITIES 
BY  CPM 

INTEGER  RANM2500)  ,1TYPE(2500) 

DIMENSION  EF  (2500 )  ,  0URI2500) 

REAL  LSI25C0)  ,LFNA ,TF INI S (2500 ) 

INTEGER  FOLU 10000  ),NF  (2500)  ,FP0S(250C) 

INTEGER  PRED(10000),NP(2500) ,PP0S(250C) 

DIMENSION  CTRANF(10C00),CTRANP( 10000) 

COMMON /SB9/CTRANF .CTKANP 
CCMM0N/BB5/  LS.NNODE,  RANK,  ITURN 
COMMON/ RB6/PRED,  NP,  PPOS 
CCMM0N/BB7/F0LL,  NF,  FPOS 

C  FORRARD  ROUTINE 

F  IN  I S  *0  • 

I=RANK(1 ) 

IF(TFINIS( I) .NE. 99999.)  GOTO  50 
EF (  I)=DLR(  I) 

GOTO  60 

50  EF (  1)=TF1N1S(I) 

60  CONTINUE 

DC  100  K=2, ITURN 
NA=R ANK (K ) 

IF(TFINISINA) .EC. 99999.  )  GOTO  70 
EF(NA)  =  TF1MS(NA) 

GOTO  71 
70  CONTINUE 
ESNA=0. 

IFtNP(NA).EC.O)  GOTO  201 
JP1 =PPD  5 ( NA  )  ♦ 1 
JP2=PPU5(NA)*NP(NA) 


BM 1 10460 
BM110470 
EMI  10  480 
BMI10490 
BM 1 10500 
BMI10510 
BM110520 
BM, 110530 
BM  1 10540 
BM1 10550 
B  M 1 10  560 
BM11G570 
BMI10580 
8M 110590 
BM110600 
BM 1 106 10 
BMI10620 
EMI  10630 
BM1 106*0 
BMI10650 
B  M 1 10660 
eM.l  10670 
8MI 10680 
BM I 10690 
BMI10700 
B  Ml  10  710 
BM1 10720 
EMI  10730 
BM1 107*0 
BM110750 
BMI10760 
BM110770 
BM110760 
ey 1 10 790 
BMI 10800 
BM 1 1C  810 
BMI 10820 
BMI 10830 
BMI 108*0 
E  M 1 10850 
BMI 10860 
BM11G97C 
BMI 10660 
eMl lCb90 
BM ] 10900 
BMI 10910 
BMI 10920 
BMI 10930 
BMI 109*0 
BMI 10950 
BMI 10960 
BM 1  109  70 
BMI iO  9bC 
BMI 10990 
eMl 11U00 


i 
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OC  200  J  =  JP1 . JP2 
E  FOUR  =DLR  (NA ) 

JA=PREO< J) 

1F(EF0UR.G7.0UR< JA))  EFDUR=DUR ( JA ) 

EFC=EF( JA)-(1.“CTRANP< J) )*EFDUR 
ESNA=AMAX1(ESNA,EFC) 

200  CONTINUE 

201  CONTINUE 

EF  ( NA  )  =  E  SNA  +  DllR  (NA ) 

IF ( ITYPE(NA)  .EC.?)  EF (NA ) =E  SNA 
71  CONTINUE 

F1NIS=AMAX1(F1NIS.EF(NA) ) 

100  CONTINUE 

WR1TE(24,12)  FINIS 

WRITE <24. 49*  )  < I,EF(I ),I«1,NN0DE) 

12  FORMAT ( *  PROJECT  FINISH  TIME  *  '.F8.2) 

BACKWARD  ROUTINE 

IF ( 1 SCF 1 N. NO .0. AND. ISCFIN.LT. FINIS)  TFEN 
WR1TE(6,*)  **«$$  ERROR  *«**$*«• 

WRITE(6»$)' SCHEDULE  TARGET  FINISH  IS  LESS  THAN  FORWARD  FINISH* 
WRITE <fc,*) 'TARGET  **,ISCFIN.*  FINIS  =  *, FINIS 
STOP 
END  IF 

IF< 1SCFIN.GT.0I  F1NIS=ISCFIN 

N A*RANK  ( ITL'F.N ) 

LS(NA)*FIN1S-DUR(NA) 

IF  « ITYPE<NA)  .EC. 7)  THEN 
LS(NA)=F1N1S 

1F(LS(NA) .GT.DUR(NA) .AND.EF(NA) .LT.CUR(NA)  )  L  S ( NA  )  =DUR (NA ) 
IF(LS(NA).LT.DUR(NA))  THEN 

HR  I TE (6  »~)  '  $$  MILESTONE  OATE  FUR  NUDE  *  »N A 
WRITE(t,«)  •  IS  INACTIVE.  PROGRAM  WILL  USE  MORE* 

WRITUfc.S)  •  BINDING  OATE  AND  CONTINUE.* 

DUR (NA )  =0 
END  1 F 
END  IF 
K*1TURN-1 
DO  300  J  J  =  1 »K 
KK=  1TURN-JJ 
NA=FANK (KK ) 

LFN  A  =  F  IMS 

IF(NF(NA).EC.O)  GOTO  401 
JF1 =FP0S(NA)+1 
JF2*FP0S(NA)*NF(NA) 

DO  400  J=JF1 , JF2 
EFDUR=DUR (NA ) 

JA=F0LL( J) 

IF(  ITYPE(JA) .E0.7)  EF  DUR  =  0 
1F(EF0UR.GT.DUR( JA) )  EFDUR*DUR ( JA ) 

LSC=LS( JAMU.-CTRANF ( J) )*EFDUR 
IF ( LF NA  .GE  .0 SC )  LFNA  =  LSC 
400  CONTINUE 


BERKELEY 


BM111010 
BMI 11020 
BM  11030 
BMI11040 
BM) 11050 

eM.111060 

BMI11070 
BM.  1 11 080 
BM1 11090 
BM 1 11 100 
BMI 11 110 
BMI 11120 
eMI 11130 
BM 1 11140 
BMI 11 150 
BMI 11160 
BMI  11170 
BMI 11 160 
BMI 11 190 
BM111200 
BMI 11 210 
BMI 11220 
BMI 11230 
eMI11240 
BMI 11 250 
BMI 11260 
BMI 11 270 
BM11128C 
BMI 11290 
BMI 11 300 
BMI 11 310 
BM11132C 
BMI 11 330 
BMI 11 340 
BMI 11 350 
BMI 11360 
BMI 11370 
BMI 11 380 
BMI 11390 
BMI 11 400 
BMI 11 410 
BMI 11420 
BMI 11 430 
faMI 11 440 
BMI 11450 
BMI 11 460 
BMI 11 4  70 
BMI 11480 
BMI 1149C 
BM 1 11500 
BK11151C 
BMI 11 520 
BMI 11 530 
BMI 1154C 
BM 1 1 1 550 
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A  01  CONTINUE 

L  S( NA ) =LFNA“OUR ( NA ) 

C  SET  MILESTONE  OATE 

IF( 1TYPE(NA).EQ.7)  THEN 
LS(NA)*LFNA 

IF(LS(NA).GT.OUR<NA).ANC.EF(NA).LT.DUMNA)  )  L  S  ( NA  )  =DUR  (NA  ) 
1F(LS(NA).LT.0UR(N*))  THEN 

WRITEtfc,*)  •  =>«  MILESTONE  OATE  FUR  NODE  *  »N  A 
WRITE{fc,*>  •  IS  INACTIVE.  PROGRAM  WILL  USE  MORE* 

WRITE  ( fc ,» )  •  BINDING  OATE  ANO  CONTINUE.* 

OUR (NA ) -0 
ENDIF 
END  IF 

300  CONTINUE 

DC  EO  I«1,NNDDE 

IF ( 1 . LE . I  TURN )  GOTO  90 

LSI l)-DUR(l) 

GOTO  80 

90  LSI  1 ) =L SI  I I  +  DUP I  1  I 

IF  1 1TYPE  II ) .EQ.7  »  LSI  1 1  — L  S I  1 J-DURIl) 

80  CONTINUE 

C  WRI TEI24  ,494)  I  I .LSI  1) .1 =1,NN0DE ) 

C  494  FCRMAT(5(1B,F8.2)) 

RETURN 

END 

SUBROUTINE  CHECK  I XAP , 1 X) 

C 

C  THIS  SUBROUTINE  CHECKS  IF  CAPACITIES  ARE  VIOLATED. 

DIMENSION  XARI200) 

INTEGER  WCSHCPI200).NSHOP 
COMMON/ CC9/WC SHOP, NSHQP 
IX  =  C 

DO  13  I  s  1 » NSHOP 
IFIXARin.LT. -.001)  ix=l 
13  CONTINUE 
RETURN 
END 


SUBROUTINE  CR  I T  I C I ZU , PRI ) 

THIS  ROUTINE  CELAYES  “TRULY  SLACK"  ACTIVITIES  TL  CET  RE  SLIP  CE  S 
ENOUGH  TO  START  CRITICAL  ACTIVITY  THAT  HAS  CEL  AYE  C 

OIMENSICN  A  1 2500, 70), ARI200)  ,RNEED(20C) 

INTEGER  ASHLPI2500.70) ,ANUM(2500) 

OIMLNSICN  ZL 12500)  ,  Z ( 2500  ) , Z U I  2500 ) 

DIMENSION  TST  ART  12500)  ,TF  IMS  I  2500) 

REAL  LSI250C I.PCVI 2500 ),TLU< 2500) 

INTEGtR  WCSHUP (200  ), NSHOP 

INTEGER  PREl'(  10000)  ,NP(2*00)  ,PP0S(250L) 

REAL  C TRANE  < 1C0C0 ) ,CT RANP ( 10000  ) 

I  HUGER  PRI  (  250C  )  ,  CUR  (2500)  .RANK  (2500  ) 


BERKELEY 


BH 1 11 560 
BM! 11 570 
BMI 11560 
BM 1 11590 
BMI 11600 
BMI 11 610 
BMI 11 620 
BMI 11630 
BMI 11640 
BMI 11650 
BMI 11660 
BMI 11670 
BMI 11680 
BMI 11690 
BMI 11 700 
BMI 11 710 
BMI 11 720 
BMI 11730 
BMI 11 740 
BMI 11 750 
BMI 11 760 
BMI 11 770 
BMI 11780 
BMI 11 790 
BMI 11  BOO 
BMI 11810 
BMI11820 
BMI 11 830 
BMI 11840 
BMI 11850 
BMI 11860 
8M111870 
eMlll880 
BMI 11 890 
BMI 11 900 
BMI 11910 
BMI 11920 
BMI 11930 
BMI 11 940 
BMI 11950 
eMI11960 
BM111970 
BMI 11980 
B  Ml  1 1 990 
BMI 12000 
BMI 12C10 
BMI 12020 
BMI 12030 
6MI 12  040 
eMl 12050 
BMI 12060 
PM1  12070 
bM 1 120 BO 
BMI 12090 
BMI 12100 


F  lit: 
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C 
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C 
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c 
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C 

12 
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C 
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C 

C 
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INTEGER  lACTIV(lOOO), IREAOY(IOOO) 

INTEGER  NSAVE (900) ,PSAVE (900 ) ,1RESCH (900) 
CCMPON/BB 1/  1READY,  I  ACT l V.NRE ADY ,NA C  1 1  V 

ccmpon/sb4/ctranf,ctranp 

CCMP0N/PE>5/  LS.NNDDE,  RANK,  ITURN 
CCMP0N/8B6/PRE0,  NP,  PPOS 

CCMP.0N/B68/PCV , TLU »TF INI S ,Z .CLOCK ,DUR  .LENGTH 

CCMN0N/BE9/AMJH,  ASHGP,  A,  AR 

CCMHON/BBll/ZL 

C0MH0N/BB13/NRES,  NCC 

CCMH0N/CC9/  WCSHDP,  NSHOP 


1  SAVE  =0 
JSA VE =0 

DC  10  11=1 ,NRE ADY 

SEARCH  CRITICAL  ACTIVITY 
lMREAOYdl) 

IF  (  (LS  (  1  )-CLCCK-DUR  ( I  ) )  .  G  T  .0  )  GO  TO  1C 
MRE  S=ANlP ( I ) 

IF(PRES.EQ.O)  GO  TO  10 

WRITE (37  ,100)  CLOCK, 1 

FCRPAT(lX,F6.2,«  ACT.*, IS, •  IN  CRITICAL  ROUTINE  $**«*•> 

SET  RESOURCES  NEEDED 
DO  12  L=1,PRES 
K=WCSHOP(ASHOP(I,L)) 

RNEED (K )=A(I  ,  L 1 ~ZL( I ) -AR ( K) 

DO  13  L*l,900 
IRE  SCH(L )=C 

SEARCH  TRULY  SLACK  ACTIVITIES 
IDX=0 

DO  15  J J=1  ,NACT IV 
J=1ACTIV( JJ) 

IF( (LS(J  ) -CLOCK- DU R ( J)).LE.O)  GO  TO  15 

IF ( ANUM ( J ) .LE  .0 )  GO  TO  15 

IDX=I0X-»1 

IRESCH(  I DX  )  =  J 

CONTINUE 

IF ( IRESCH{ 1)  .EC.O)  RETURN 

CHtCK  IF  ENOUGH  RESOURCES  CAN  BE  ACQUIRED 
NN  =  1 

J  =  1FE  SCH(NN) 

NCT  ENOUGH  HE S.  FAIL 
IF ( J.EQ.O)  THEN 
GO  TO  1C 
ENCIF 

MPES=ANUH( J) 

DO  17  L  *  1  »PKE  5 


BPI  12110 
BHl 12120 
BPI 12130 
BPU2140 
BPI12150 
BPI 12160 
BM  12170 
BM  12180 
BM  12190 
BPI12200 
BM  12210 
BM  12220 
BM  12230 
BM  12240 
BM  12250 
BM  12260 
BP 1 12270 
EM  12280 
BM  12290 
BM  12300 
BM  12  310 
BM12320 
BM  12  330 
BM  12340 
BM  12  350 
BM  12  360 
BM  12370 
BM  12  3bO 
BM 12390 
BP  112400 
BPI 12410 
BP.  112420 
BPI 12430 
BPI 12440 
BPl 12450 
BM  12  460 
BPI 12470 
BPI 12480 
BPl 12490 
BP 1 12500 
BP  1 12510 
BPl 12520 
BPl 12530 
BPl 12540 
BPl 12550 
BPl 12560 
BP  112 5 70 
Bpl 12580 
BPl 12590 
BP  1 12600 
Bpl 12610 
BPI 12620 
BPI 12630 
BPI 12640 
BPI 12650 


n  o  kj  non 
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K  -HCSHQP (A SHOP (  J  »L  ) ) 

17  RNEED(K}SRNEED(K)”A{J,L)*Z(J) 

NRE  S*ANUM(  1  ) 

ICHECK*C 

DC  18  L *1 »MRES 

K=WCSHQP(ASHOP(l#L)) 

18  IF(RNEED(K)  .  GT  .0  )  1CHECK*1 

C  IF  ICHECK*1 t  TRY  MORE  SLACK  ACTIVITIES 

IFl 1CHECK.EQ.1)  THEN 
NN=NN-*1 
GC  TO  16 
END  IF 

SUCCESS  TO  GET  ENOUGH  RESOURCES 
RELEASE  RESOURCES  OF  NN  SLACK  ACT'S 
DO  20  M=1,NN 
J  =  I RE  SCH  <M ) 

MRES*ANUM( JJ 
DO  20  L  =1 »KRE S 
K  =WCS  HOP ( A SHOP ( J ,L  ) ) 

AR(K)=AR(K)+A(J,L)$Z(J) 

0  CONTINUE 

SCHEDULE  ACTIVITY  I 
ZNE  K  =  ZU ( I ) 

ZC=CUR ( I  )/(LS(1 1 “CLOCK) 

IF(ZNEH.CT.ZC)  ZNEH=ZC 

MRES*ANUMl 1 ) 

DC  27  L’l.MRES 
K=WCSHOPUSHOP(I  ,LM 
IF(A(I  ,L).LT..0001)  GOTO  27 
ZAR  =  AR ( K  )/A ( I ,L  ) 
lF(ZNEW.GT.ZAR)  ZNER=Z AR 
27  CONTINUE 

C  CHECK  FLOW  TRANSFER 

IF(NPU)  .EC .0 )  GOTO  31 
ISTART*PP0S(1)*1 
IENC-NP (  D+PPOSl  I) 

DC  29  IPCS*ISTART,IEND 
IF (CTRANPI 1P0SI .EQ.l)  GOTO  29 
lK*PRED  1 1PCS ) 

IF(TFINIS(  IK). CE  .CLOCK)  GGTO  29 
I F  (  CUR  (  D.LE.O)  GGTO  29 

ZMAXI=0UM  1  )*U.-CTRANP(IPOS))/(TFINISC  IK) -CLUCK) 
IF ( ZHAX  I .  L  T  .zneh )  ZNEH=ZMAX1 
29  CONTINUE 
31  CONTINUE 
C 

IF(ZNEH.LT.ZLCI))  THEN 
C  CLEAR  THE  ADDED  RESOURCES 

DC  32  H=1,NN 
J=  1  RE  SCH (M ) 

MF  E  S  *  ANUM ( J ) 

DC  32  1  =  1 »MPE  S 
K=HCSHLPIASHUP ( J,L)  ) 


BMI 12660 
BM 1 12670 

eM112680 

BMI 12690 
BMI 12700 
BMI 12 710 
6MI12720 
BMI12  73C 
BHI127A0 
BMI 12 750 
BMI 12  760 
BMI 12770 
BMI  12  780 
BMI 12 790 
eMI12800 
BMI 12810 
BMI 12820 
BMI 12830 
BMI 128A0 
BMI 12850 
BMI 12860 
BMI 12870 
BMI 12680 
BMI 12890 
BMI 12900 
BM 1 12910 
BMI 12920 
BMI  12930 
BMI129A0 
BMI 12950 
BMI 12960 
BMI 12970 
BHI129B0 
BMI 12990 
BMI 13000 
BMI 13010 
BMI 13020 
BMI 13030 
BMI130A0 
BMI 13050 
BMI 13060 
BMI 13070 
eMl 13060 
BMI 13090 
BMI 13100 
BMI 13110 
BMI 13120 
BMI 13130 
BMI 131A0 
BMI 13150 
b F 1 1 3 1 6C 
eMl 131 70 
BMI 13180 
6MI 13190 
eMI13200 
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AR(K>=ARIK)-A<J,L)*Z(J) 
32  CONTINUE 
GC  TO  10 
END1F 


C  UPOATE  AVAILABLE  RE  SOURCE S, ETC .  AND  SAVE  I  IN  NSAVE 

DO  33  L  *  1 »HR£  S 
K  *WC  SHOP  I A SHOP ( I  * L  )  I 
AR(K)=AR(K)-A(1,L)«ZNEW 
33  CONTINUE 

I SAVE*I SAVE4 1 
N SA VE ( 1  SAVE  )  =  I 
T  ST  ART ( I )  =  CLOCK 
TLU ( I ) =CLOCK 
CALL  RESCHDI ItZNEH.AR  I 
WRITE (37*106)  I 

C6  FCRHAT (  •  ACT  1VITY* » 15 *•  IS  SCHEDULED.*) 

UPDATE  LNOCED  ACTIVITIES  AND  SAVE  J  INTO  HSAVE 
DC  35  M=1,NN 
J  =  1RESCH (M  J 

WRITE (37  *1C7)  CLOCK  ,J .CLOCK  +  l . 

07  FCRHAT(1X,F6.2,*  ACT.*, 15**  IS  DELAYED  UNTIL*. F6. 2) 
Z(J)=C. 

PCV ( J  )  =  C  • 

CALL  CANCEL! J.IACTIV.NACTIV) 

HSAVE  (JSAVE'*H)sJ 
5  CONTINUE 

JSAVE*JSAVE+NN 

0  CONTINUE 


UPDATE  ACTIVE  AND  READY  LIST 
IF  C  ISAVE.EC.O)  RETURN 
DO  50  I  I  =1 » I  SAVE 
1 -NSAVE  (II  ) 

CALL  CANCEL (I.IREADY* NREADY I 
CALL  ADDL(I*PRI*IACTIV«NACTIV) 

0  CONTINUE 

IF ( JSAVE .EC.O)  THEN 

WRITE (' ,*) LOGIC  ERROR  IN  SUBROUTINE  CRITIC..  CHECK  t*$«* 

RETURN 

END1F 

DO  60  JJ*1, JSAVE 
J  =H  SA  VE ( JJ) 

CALL  ADDL ( J.PR1 . IREADY, NREADY) 

C  CONTINUE 

RETURN 

END 


SL'BFOUTINE  RE  SCH0  ( N A ,  ZNE  W  ,AR  ) 

THIS  ROUTINE  RESETS  TFINIS,Z,PCOV,TLU  ACCORDING  TC  NEN  INTENSITY 


BH11321C 
BH11322C 
BHI 1323C 
BH11325C 
BH11325C 
BH11326C 
BH11327C 
BH11328C 
BHI 13290 
BHI 13300 
BHI 13310 
BHI 13320 
BH113330 
BHI 13350 
BHI 13350 
BHI 13360 
BHI 13370 
BHI 1336C 
BHI 13390 
BHI 13500 
BHI 13510 
BHI 13520 
BHI 13530 
BHI 13550 
BHI13550 
BHI 13560 
BHI 13570 
BHI 13580 
BHI 13590 
BHI 13500 
BHI13510 
BHI 13520 
BHI 13530 
BHI 13550 
BH 1 13550 
BHI 13560 
BHI 13570 
BHI 13580 
BHI 13590 
BHI 13600 
BHI 13610 
BHI 13620 
BH113630 
BHII365C 
BHI 13650 
BHI 13660 
BHI 13670 
BHI 13680 
BHI 13690 
BHI 13700 
BHI 13  710 
BHI 13720 
BH.  1 1 3  730 
BHI 13750 
BHI 13750 
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DlMENSICN  OFL ( 30 ) »PCV (2500) «  TLU (2500 ) »TF INIS (2500  J  *2 (2500 ) 
INTEGER  CUR ( 2500 ) 

INTEGER  FOLL (10000 ) ,NF (2500) ,FP0S(250C) 

INTEGER  PREO ( 10000 ),NP(25C0) »PPOS ( 250C ) 

DIMENSION  TE VENT ( 10000) 

INTEGER  TIM.VEC( 10000,2) .AOTIME (1000,11) 

01MENSICN  CTRANF(  10000)  tCTRANP  (10000  )  ,AM200  ) 
CCMM0N/BB4/CTRANF  , CTR ANP 
CCMM0N/eB6/PRE0,NP,PP0S 
C0MM0N/BB7/F0LL .NF.FP3S 

C0MM0N/E68/PCV,TLU,TF INIS.Z .CLOCK , DU R .LENGTH 
COMMON/ TTT/TEVENT.TIMVEC.ADT IMF .NXTVEC 

PC0V*1. 

2CLC=Z(NA) 

IF ( DUR ( N A ) .LE .0 )  GOTO  1254 

PCOV*PCV(NA)+(CLOCK-TLU(NA) )*Z(NA)/DUR(NA) 

1254  K  =1 

NPF*FP0S(NA)41 

CFLID-1. 

1F(CTRANF(NPF  I.EQ.l.)  GOTO  115 
K  *2 

0FL(2)SCTRANF(NPF) 

115  CONTINUE 

C  ERASE  OLD  EVENT  FROM  SCHE3  LIST 

IF(TEVEM(5C00*NA).EQ.0.)  GOTO  201 
1F((0FH2)-PCUV>  .LE.0.0C01)  GOTO  201 
CALL  ERASE (5000+NA) 

2C1  IF(TEVENT(2500*NA).E0.0.)  GOTO  202 
IFIPCCV.GE. 0.9999)  GO  TO  202 
CALL  ERASE ( 25004NA ) 

C  RESCHEDULE  NEW  EVENTS 

202  PCV(NA)=PCOV 
TLU (NA ) =CLCCK 
IF ( ZNEH  .LE  •  .0001  )  THEN 
TFINI$(NA)=99999. 

WRITE  (fc.$)  'ACT  •  .NA.  •  INTERRUPTED  ATSCLOCK 
GO  TO  26 
END  IF 

CC  120  J  =1  ,K 
PLEFT  sOFl(J)~PCOV 
IF (PLEFT.LE .0.0001 )  GOTO  120 
ANWTM=CLLCK+PLEFT=:CUR  (NA  J/ZNEW 
IF(LFL(J).LT  .l.lGOTCi  122 
CALL  SCHEO(2500*NA,ANWTM) 

121  TFINIS(NA)  * ANWTM 
GLTC  120 

122  CONTINUE 

CALL  SCFE0150004NA,AN*TM) 

120  CCNTINUE 
26  CONTINUE 
Z  (NA  )  =ZNEW 

C  WRITE (  3  7,148  )  NA  ,  Z ( NA  )  .PC CV , CLOCK ,Z GL C 

C  WRITE (37,148 )  CLOCK ,NA,Z (NA ) .ZOLD.PCC V.TF INI S(NA ) 


BM113760 
BM113770 
BMI13780 
BMI 13 790 
BMI 13800 
BMI 13810 
BM113820 
BMI 13830 
BMI 13840 
BMI 13850 
BMI 13860 
BM I 13870 
BMI 13880 
BMI 13890 
BMI 13900 
eMI13910 
BMI 13920 
BMI 13930 
BMI 13940 
BMI 13950 
EMI 13960 
BM113970 
BMI 13980 
BMI 13990 
BM 1 14  000 
BM 1 14  010 
BM 1 14  020 
BMI 14030 
EMI  14040 
BMI 14050 
BMI 14060 
eMI14070 
BMI 14  080 
BM 1 14090 

eni4ioo 

BMI  14110 
BMI 14120 
BMI 14130 
EMI  14140 
BMI 14 150 
BMI 14160 
B  M 1 14  1  70 
BE  1 14 180 
EMI 1419C 
BMI 14200 
BM  1 14  210 
BM  1  14220 
BMI  14230 
BMI  14240 
BMI 14250 
EM  114260 
BMI 14270 
BMI 14260 
BMI  14290 
BM  14  30C 


ci  n  n 
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C  «  *AR (01 ) , AR(02) 

length*length-*i 

C  148  FLKHATI5X,15,5X,F6.3,5X,F6.3,5X,F8.2,5X,F6.3) 

148  FCRHATI 1X,F6.2,»  ',14,*  1*',F6.3, 

♦  •  0  =  *,F6.3,f  P* ' »F5.3  ,'  F*»,F6.2, 

♦  •  R=',2F8.1) 

RETURN 

END 

SUBROUTINE  DWNGR D (H ,2 LOW , 2, 1 IRUN.PR 1 ) 

THIS  ROUTINE  DOWNGRADES  ACTIVITY  INTENSITIES  TO  RECTIFY  CAPACITY 
V  10 AL  AT  IONS. 

DIMENSION  IKEV(IOOO) »NPR 1 (1 000 ) , AC 250C , 70 ) , AR( 200 ) 

INTEGER  ANUH  ( 2500 )  ,  AS  HOP  (  2500 , 70 )  ,WC  5  HOF’  ( 200 ) »NSHCP 
INTEGER  lACTIV(lOOO). IREAOYt 1000) 

0IMENS1CN  ZL(2500) ,2(2500) 

INTEGER  FRI (2500 ) 

CCMH0N/PB1/  IREAOY,  I  ACT  I V.NRE ADY ,NAC T I  V 
CCMHQN/CC9/WCSHCP.NSH0P 
CCHH0N/BP9/ANUM , ASHOP , A, AR 
CCHN0N/B81C/IREV  ,NPR1 ,  JF  L  AG 
CrMPON/Sf 11/ZL 


c 


nt3 


c 


1246 


C 

1233 

1162 

C 

C 


DC  1162  1-1, H 
J=NFRI(  I) 

JK  = IR  E  V ( J ) 

IFIZLUW.GT.ZLtJK))  ZLOW=ZUJK> 
ZMEX=Z(JK)-ZLCW 

DETERMINE  IF  ANY  CONTRIBUTION  DONF  DUE  TO  JK 

1FLAG=0 

JFL AG=0 

NRS*ANUM(JK ) 

IF(NRS.EC.C)  GOTO  1162 
DC  1163  L*1,NRS 
K*WCSH0F(ASH0P(JK.L)) 

AC«ZMEX«A(JK ,L) 

1FIA0.GT.  .01  .AND.  AR(K).LT.O.)  IFL*G*1 
CONTINUE 

IF(  1FLAG.EC.0)  GOTO  1162 
UPDATE  AVAILABLE  RESOURCES 
DC  1246  L  =  1  ,NRS 
K=WCSHOP  USHCPI JK,L)) 

AF(K)=AR(KMZMEX-A<  JK,L) 

CALL  RESCHC  (JK.ZlCW.AR) 

CHECK  IF  CAPACITY  VIOLATION  RECTIFIED 
CALL  CHE CK ( AR  ,  JF L AG ) 

1F( JFLAG.EC.O)  RETURN 
CONTINUE 


NEGATIVE  AR  *}  LOGICAL  ERROR 
IF ( 1 1  RUN  .EC .2  )  THEN 

WRITE (6,*) 'NEGAT  IVE  AR  AFTER  DISRUPTING  .. 
DC  1222  11*1 »NSHOp 
IF ( AR ( 1 1 ) «L T  .0 )  THEN 


B HI  14  310 
BHI 14  320 
BHI14330 
BH11434C 
BHI14350 
BHI 14 360 
BK114370 
BN  1 14  380 
BH114390 
BH 1 14  400 
8HI14410 
BHI 14420 
BHI 14430 
BH I 14440 
BHI 14450 
BHI 14460 
BHI 14470 
BH.l  14480 
BHI 14490 
BHI 14 500 
BH114610 
BHI 14  520 
BHI 14530 
BH114540 
B  H 1 14  550 
BHI 14560 
EH 114570 
BH.l  14580 
BHI14590 
BHI 14600 
BH114610 
BHI 14620 
BHI 14630 
BHI 14640 
BHI 14  650 
BHI 14660 
BHI 14670 
BHI1468C 
BHI 14690 
BHI 14  700 
BHI 14  710 
BHI 14  720 
BHI 14  730 
BHI 14  740 
EH11475C 
BHI14  760 
BHI 14  770 
BHI 14  760 
BH114  79C 
BHI 14800 
BM  14810 
BH 1 14  820 
BHI  14  830 
BH 1 14  840 
BHI 14850 


ICC  1C  ERRIN' 


on  o 
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WRITE (6,«)*I,AR**,U,AR( II) 
ENOIF 

1222  CONTINUE 
STOP 
ENOIF 
RETURN 
C 

END 


SUBROUTINE  RANC(N.U) 

THIS  ROUTINE  COMPUTES  A  RANDOM  NUMBFR  C<  *U  *  <  1  USING  SEED  *N* 

N=N*94331486l  ♦  453816693 
IF(N.GE.O)  GCTO  1 
N  *N  ♦  2147483647  *1 
1  U»N«  .4656612E-9 

IFd'.LT.O.  OR.U.GT.l)  HRITE16,*)'  RAND  LUT  OF  LIMIT*, U 

RETURN 

END 


SUBROUTINE  SCHED ( CODE .TIME) 

C 

C  THIS  SUBROUTINE  ADDS  THE  EVENT  TO  THE  SCHEDULING  LIST. 

C 

INTEGER  T  IMVEC (10000, 2), AOTIME (1000, 11) .NPCtLL ,NP2,CCDE  ,LT1ME 
REAL  TIME, TEVENT (10000) 

CCMMON/TTT/T EVENT ,T IMVEC, ADT IME .NXTVEC 
C0MH0N/TYY/LT1ME 


NPCELL*T IME$10*14 .5 
IF(NPCELL.GT.LTIME)  LTIME  =NPCELL 
IF(TIMVEC(NPCELL,l).NE.O)  GOTO  1 

C  SCHEDULE  FIRST  EVENT  AT  'TIME* 

T1MVEC(NPCELL,1)=CCDE 
GCTC  7 

C 

1  IF(TIMVEC(NPCELL,2).NE.0)  GOTO  2 

C  F IP  ST  USE  CF  AUX.  STORAGE  AT  'TIME* 

ACT 1ME(NXTVEC,1)SC00E 
T IMVEC (NPCELL  ,2)=NXTVEC 
GCTC  fc 

2  NT2*T IMVEC  (NPCELL ,2 ) 

3  IF(ADTIME(NP2,10).NE.O)  GCTO  5 

C  AUX.  VECTOR  DOESN'T  POINT  TU  A  NEXT  ONE. 

DC  4  1*1,9 

IF ( AOT IPE (NP2,I ) .NE.O  )  GOTO  4 
AOTIME (NP2  ,  I ) *CCOE 
COTC  7 

4  CONTINUE 

C  C  XT  ENT  I CN  VECTUR  IS  FULL.  USE  THE  NEXT  CNE  AVAlLAfcLt 

ADTIME(NP2,10)*NXTVEC 
ACTIME(NXTVEC,1)=CCDE 


BERKELEY 


BMl 14860 
BM114870 
BMI14860 
BM114890 
BM. I 14 900 
EMI  14910 
BM114920 
EMI  14930 
BM.  114940 
BM114950 
BM1 14960 
BM114970 
BMI14980 
BM1 14990 
BM  15000 
BM115010 
BMI15C20 
BM115030 
BM1 15040 
BM115050 
EMI 15060 
BM115070 
BMI15080 
BM115090 
BMI15100 
BM115110 
BM 1 15120 
BM115130 
BMI15140 
EMI  15 150 
BMI15160 
BM 1 15 1 70 
B Ml  15180 
BM115190 
BM1 15200 
BMl 15210 
BM1 15220 
BMl 15230 
BMl 15240 
BMl 15250 
BMl 15260 
BMl 15270 
EMI  15280 
EM115290 
EMI  15300 
eMl 15310 
BMl 15320 
EMI  15330 
EMI  15340 
EMI  15350 
fc M 1 15  360 
fc  M 1 15  3  70 
eMl 15380 
eMl 15390 
E  M 1 15  400 


o  o  o  o  rt  r» 
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FILL  BACKWARD  POINTER 
ACT  1ME(NXTVEC,11 )=NF2 
GCTC  6 

NF2  =  AOT I  ME (NP2,10) 

GCTC  3 

NXT1=NXTVEC*1 

FINE  NEXT  AVAILABLE  AUX  VECTOR 
DC  8  I  =NXT 1 , 1000 
1F(ADTIME(1,1).NE.0  )  GOTO  8 
NXT  VEC=  1 

TEVENT(CCDE)*T1ME 

RETURN 

CONTINUE 

WRITE  (<:,*}•  AUXILARRY  EVENT 

STOP 

END 


GOTO  8 


STORAGE 


FULL. 


SU6R0UT  1NE  RHV< CODE ,T IME , LAST , CLOCK ) 


THIS  SUBROUTINE  FINDS  THE  THE  NEXT  EVENT  IN  THE  LIST  AND 
ERASES  IT.  IF  THERE  ARE  MORE  THEN  A  SINGLE  EVENT  AT  TIME, 
RMV  WILL  PICK  THE  LAST  ONE  WHICH  WAS  SCHEDULED. 


INTEGER  FCELL  ,T 1MVE C< 10000,2 ) ,AOT 1ME I10C0 , 11 ) , CLDE , L AST ,L T 1  ME 
REAL  T I  ME, CLOCK ,5T0PTM,TE VENT (10000) 

COMMON/ RMVMN/TENC 

COMMON/ TTT/TE VENT, TIMVEC.ADT1ME ,NXTVEC 
CCMMON/YYY/LTIME 

LAST  =0 

FCELL»CLCCK$10*1*.5 
DO  10  I *FCELL  ,LT IME 
1F(TIMVEC(  1  ,l).EQ.O)  GUTO  10 
IF ( T I HVEC ( 1 ,2).NE.C)  GOTO  1 
SINGLE  EVENT  AT  'TIME* 

CODE  *TIMVEC(I,1) 

TIME=FLCAT(1-1)/10.  MODIFIED  TO  USt  EXACT  TIKE  VALUE 

T  IME =TEVENT (CODE ) 

T  IMVEC (  I  ,1  )=C 
LAST  *  1 
GCTC  32 


MODIFIED  TO  USt  EXACT  TIKE  VALUE 


MORE  THEN  ONE  EVENT  AT  'TIME* 
NP2  =  TIMVEC(1  ,2) 
1F(A0TIKE(NP2,10).NE.0)  GC  TO 
DC  A  J=2,1C 

IT (AOT IME (NP2, JJ.NE .0)  GOTO 
CODE  *  ACT1ME(NP2,J-1) 
TlME=(I“l)/10. 

T  IME*TtVENT(COOEI 
ATT IME (NF2,  J-l )»0 
ERASE  THE  THE  LAST  EVENT  AT 


THE  AUXIILARY  VECTOR,  RELEASE 


IT  IS  I  HE  CM  Y  ONt 

the  vectcr. 


EMI 15 A10 
BM115A20 
BMI15A30 
BMI15AA0 
BM115A50 
B MI  15  A 60 
BM116A70 
BM 1 15 ABO 
BM115A90 
BMI15500 
BMI15510 
EMI 15520 
EM1 15530 
BM1155A0 
BMI15550 
BMI 1556C 
BMI15570 
BMI 15580 
BMI 15590 
BMI 15600 
BM15610 
BMl 15620 
BMU5630 
BMU56A0 
BMI 15650 
BMI 15660 
BMI 15670 
BMl 15680 
BM  1 15690 
EMI 15700 
BK115710 
BM115720 
BMI 15 730 
BKI157A0 
BMl 15  750 
BMl 15  760 
BK115770 
BM115780 
BMI 15  790 
BMI 15800 
BMI 15810 
BMl 15820 
BMl 15830 
EM1158AC 
BMI 15850 
BMl 15860 
EMI  15870 
EMI  15880 
BMl 1589C 
EMI  15900 
EMI 1591C 
EMI  15920 
BMI 15930 
BMl 159A0 
EMI 1595C 
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IF(J.NE.Z)  GCTO  32 
NF22=ADT1ME(NP2»11) 

IF(NP22.NE.O)  GOTO  3 
T1MVECU  ,21=0 
GCTO  31 

3  ADTIME(NP2»11)*0 
ADTIME(NP22,10)=0 

31  1F(NXTVEC.GT.NP2)  NXTVEC=NP2 

32  IF(TIME.GE.TENO)  GOTO  11 
RFTURN 

4  CCNTINUE 

5  NP2  sAOT IME(NP2,10) 

GCTC  2 

10  CONTINUE 

WRI TE (6  ,9)  'SCHEDULER  TABLE  IS  EMPTY' 

LAST=2 

RETLRN 

11  RRITE(6  ,*)  'TIME  LIMIT  EXCEEDED.  TIME  IS  '.TIME,'  DAYS' 
WRITE (6  »*) 'CODE®  '  .CODE 

LAST  =  3 
ENO 
C 

SLBRGLT INE  ERASE (CODE) 

C  - 

C  THIS  SUBROUTINE  IS  ERASING  EVENTS  FROM  THE  SCHEDULER  LIST 

C  - 

c 

IMCGER  TIMVEC(10000, 2), ADTIME (1000,11)  ,CODE  ,CODE  1 
REAL  TIME, TEVENT (10000) 

COMMON/ TTT/TE VENT ,TIMVEC,ADT1ME,NXTVEC 

TIME*TEVENT (CODE ) 

IF( TIME  .EQ.O.  )  RETURN 
|  c  EVENT  HADN'T  BEEN  SCHEDULED 

TEVENT(CCDE)=0. 

NCELLSTIME*10*1  +.5 

C  THE  TRANSFORMATION  IS  AS  FOLLOWS 

C  TIMES10  41  (  FOR  T  =0.  )  +.5  (  FOR  ROUNDING.) 

IF(TIMVEC(NCELL,1).NE .CODE)  GOTO  1 
I  CALL  RMV(CCCE1, TIME, L, TIME) 

!  IF(COOE  .EQ. CODED  RETURN 

T IMVEC ( NCELL , 1 ) =CCDE 1 
RETURN 

1  NP2=TIMVEC( NCELL  ,2) 

2  DC  3  J  =  l,9 

1F(ADTIME(NP2,J).NE.CQDE)  GOTO  3 

I  call  rmviccdei, time, l, time) 

1F(COOE1. Eft. CODE)  RETURN 
AC1IME (NP2,J)=C0DE1 

3  CONTINUE 

T.P2  *ALT  IRE  (NP2,10) 

IF (TP2.CT.C)  GOTO  2 
I  RETURN 

1  ENO 


BMI 15960 
BMI 15970 
BMI 15980 
BMI 15990 
BMI 16000 
BMI 16010 
BMI 16020 
BMI 16030 
BMI 16090 
B MI  16  050 
BMI 16060 
BMI 16070 
BMI 16080 
BMI 16090 
BMI 16100 
BMI 16110 
BMI 16120 
BMI  16130 
BMI 16190 
BMI 16150 
BM116160 
BMI 16170 
BMI 16180 
EMI  16190 
BMI 16200 
BMI 16210 
BMI 16220 
BMI 16230 
BMI 16290 
BMI 16250 
BMI 16260 
BMI 16270 
BMI 16280 
BMI 16290 
BMI 16  300 
BMI 16310 
BMI 16320 
BMI 16330 
BMI 16340 
BMI 16350 
B  M 1  lb  360 
B  M 1 16  370 
EMI  16380 
BMI 16390 
EMI  16400 
BMI 16410 
EMI  16420 
BMI  16  430 
EMI  It 440 
BMI 16450 
EMI !64bC 
BMI  U470 
BMI 16480 
BMI It  490 
BMI 16500 


I 
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SUBROUTINE  ACCUM ( T IAS ,WC SHOP .NSHOP ) 

C  - 

C  THIS  SUBROUTINE  ACCUMULATES  THE  USAGE  OF  1  HE  RESOURCES. 

C  - - - 

INTEGER  NCSH0P(200) .NSHOP ,ANUM( 2500) , ASHOP 12 500 , 7C ) , I ACT  I V ( 10  00 ) 
INTEGER  lREADY(lOOO) .OUR ( 2500) 

REAL  ACUMRS(200)  ,ACUMSP(50) ,  A  (  2500 , 7C  )  .CLOCK  ,1 IAS  .2 (2500) 

REAL  PCV  (2500)  ,TLU  (2500)  ,  TF  INIS  (2500)  ,AR(  200) 

CCMP0N/B6 1/1  READY . 1ACT IV .NRE ADY .NACT  1  V 
CCMM0N/BB8/PCV.TLU.TF INIS, 2, CLOCK ,DUR  .LENGTH 
CCMM0N/BH9/ANUM.ASHCP.A.AR 
CCMM0N/CC1C/ACUMRS.ACUMSP 
C 

IFUIAS.FO. CLOCK)  RETURN 
DO  1  1*1  ,NACT IV 
1 1  * 1ACT I V ( 1  ) 

NR S  =ANUM ( 1 1 ) 

IF(NRS.EO.O)  GOTO  1 
DC  2  J*1,NRS 

DRES=A(1I,J)<(CL0CK-TIAS)-Z(II) 

L=ASHOP(II,J) 

ACUMRS(L)»ACUMRS(L)*DRES 
ACUMSP(WCSHCPIL)  ) *ACUMSP( WCSHOP (L )  MDRES 
2  CONTINUE 
1  CONTINUE 
TIAS=CLCCK 
RETURN 
END 


SUBROUTINE  LCONV ( HKC , CLND ) 

C  *  s 
C  $  THIS  ROUTINE  CONVERTS  THE  WORKING  DAY  INTO  CALENDAR  DATE  * 
C  *  * 
C  SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSStSSSSCSSSSSSSSSSSSSSSSSCstSCSSsSOSS:? 


INTEGER  WKD.YEAR .SMON.SDAY.SYR.WKDTB ( 120,31)  ,CLND (3) 
COMMON/ CCON/SMON , SDAY ,SYR ,YE AR , WKDTB 

lF(WKD.LT.C)  THEN 

WRITE (fc  ,*)  **  ILLEGAL  WORKING  DATE  =',WKD 

CLNC (  1  )=0 

CLND( 2  )  =C 

CLNC ( 3  )  =C 

RETURN 

ENDIF 

l F ( KKO . Gfc . 9^998 )  THEN 
CLNOl 1 )=99 
CLnD{ 2  )=99 
CLND ( 3  )  =99 
RETURN 
ENDIF 


BMI16510 
BM1 16520 
BMI16530 
BM1165*0 
BMI16550 
BMU656C 
BH116570 
BMI165B0 
BMI 16590 
BM1 16600 
BMI 16610 
BM.U6620 
BMI 16630 
BMI 166*0 
BMI 16650 
BMI 16660 
BMI 16670 
BMI 16680 
BMI 16690 
BMI 16700 
BMI 16710 
BMI 16720 
BMI  16  730 
BMI 167*0 
BMI 16750 
BMI 16  760 
BM.l  16770 
BMI 16780 
BMI 16790 
BMI 16800 
BMI 16810 
BM 1 16820 
BMI 16830 
BMI 168*0 
BMI 16650 
BMI 16860 
BMI 16870 
BMI 16880 
BMI 16890 
BMI 16900 
EMI  16910 
BMI 16920 
BMI 16930 
BMI 169*C 
BMI 16950 
BMI 16960 
BMI 16970 
BMI1698C 
BMI 16990 
BMI 17000 
fcMl  17010 
BM 1 1 7  020 
BMI 17030 
BMI 170*0 
BMI 17050 
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ISYM(SYR-YEAR)*12-*SHQN 

BH117060 

N=HKO*l 

BHI 17070 

DC  310  J  I  =  5DA  Y  »3 1 

BHI 17080 

M=M-HKD1B(ISYR,JI) 

BH 1 17090 

JCUT*J1 

BHI 17100 

IF (H.EQ.O)GOTO  380 

BHI 17110 

310  CONTINUE 

BHI 17120 

JSYR.=  ISYR*1 

B  H 1 1 71 30 

320  DC  330  JJ=1,31 

BHI 17140 

N=H-WKOTP( JSYR.JJ) 

BHI 17150 

JCUT=JJ 

BHI 17160 

IF(H.EQ.O)GOTC)  390 

BHI 171 70 

330  CONTINUE 

BHI 17 180 

JSYR- J$ YR*1 

BHI 17 190 

GOTO  320 

BHI 17200 

380  CLNC(1)*<M0N 

BHI17210 

CLNC ( 2  )  = JOLT 

BHI 17220 

CLNC13) =SYR 

BHI 17230 

GOTO  300 

BHI 17240 

390  KHON=HOC( JSYR.12) 

BH117250 

IF (KMCN.GT  .OIGOTO  395 

BHI 17260 

KH0N®12 

BHI 17270 

395  KYR=( JSYR-KHCN)/12*YE AR 

BHI 17280 

CLNC ( 1 ) =  KMCN 

BHI 17290 

CLNC( 2) =  *JOLT 

eH117300 

CLNC ( 3 ) =  HYR 

BHI 17310 

3C0  CONTINUE 

BHI 17320 

c 

CLNC ( 3 ) =CLND ( 3 ) - 1900 

BHI 17330 
BHI 17340 

c 

RETURN 

BHI 17350 
BHI 17360 

END 

BHI 17370 
BHI 17380 
BHI 17390 

SUBROUTINE  C ALA ( CLND , HO ) 

BHI 17400 

c 

•r  wv  wv  w  w  vV«f  *v  www  v  w  w  w  vvr  wv  vv  wv  w  v  V  w  w  w  vVwwvvwv 

AA.  A  A  A  A 
VV  Y  V 

BHI 17410 

c 

« 

■v 

BHI 17420 

c 

*  THIS  ROUTINE  CONVERTS  THE  CALENDAR  CATE  INTO  NCRKING  DAYS 

«•» 

BHI 174  30 

c 

r 

£  A  AAA  AAAA.AAAAAAAAAAA  AA  AAA  A  AAAAA  A  AAA  AAAV.  A.A  A  A  A  AAA  AAA  A  A 

vwv  vvwvtv  vVy  vvvvvvYvvvvyvvy  w  ww  wwv  y  w  v  v  vw  *av  wvyvyyvvyy 

INTEGER  ND, YE AR, SHCN, SDA Y ,SYR, WROTE ( 1 20 , 3 1  > ,  CL  ND  (  3 ) 

A* 

AA  A  A  A  A 

BH.  117440 
BHI 17450 
BHI 17460 

V 

vy  V  W  V 

COKHON/CCUN/SMON  »SDAY ,SYR .YEAR .WKDTB 

BN 117470 
BHl 17480 

c 

CLNCI2) =CLNL(2)-1 

BHI  17490 
BHI 17500 

c 

ISYR  =  (  SYR-YE  AF.)-12*SKCN 

BH 1 1 7  510 
BHI 1752C 

WC  =  C 

BHI 17530 

1YR  =  (CLNC(3)-YEAR)-12»CLN0(  1) 

eHl 17540 

I F  (  IYR.LT.  ISYRIGCTO  650 

BHI 17550 

I F (  IYR.EC.ISYRIGCT0  580 

BHI 17560 

00  400  NIMSYR.IYR 

BHI 17570 

IF (HI .  E  C  .  I SYR )G0T0  410 

eHI 17580 

IFIM.EG.1YF  IGCTC  420 

BHI 17590 

DC  44  C  NH=1,31 

EH1 17600 

i 
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WD=KQ+WKCTE (Ml ,MK ) 

BMI17610 

440 

CONTINUE 

BNI 17620 

GOTO  400 

BNI 17630 

420 

LM=CLND ( 2 ) 

BM11764C 

DC  430  HL=1,LM 

BN.11765C 

WC=HD4WKDTB(M1,ML) 

BN117660 

4  30 

CONTINUE 

BM117670 

GCTC  400 

EMI 17680 

410 

DO  450  NJ=SDAY ,31 

BN117690 

WC  =  kD-»HKDTE(MI  ,MJ) 

BM117700 

450 

CONTINUE 

BM117710 

4  CO 

CONTINUE 

BN.I17720 

GOTO  47C 

BM117730 

580 

LK=CLND(2) 

BMI17740 

1FILK.LT. SCAYIGOTD  650 

EMI  17750 

DO  460  L  I  =SDA Y ,LK 

BNI 17760 

WC=KD*HKDTB(IYR,LI ) 

BN.1 17770 

4fcO 

CONTINUE 

BNI117760 

4  70 

REP  =WD 

BNI 17790 

GCTC  500 

BN.1 17800 
BNI 17810 

650 

PRINT  «,*  ILLEGAL  TARGET  FINISH  **  PLEASE  CHECK' 

BNI 17820 

REP  *  0 

BNI 17830 

500 

CONTINUE 

BNI 17840 
BNI 17850 

RETURN 

BNI 17860 

END 

BHI1787C 

F  1 L £ s  SSP 
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c 

C  SSP  FGRTRAN 

C  . - . . 

C  THIS  PROGRAM  COMPUTES  THE  STATISTICS  AND  PRINTS  ThE  CUMULATIVE 

C  PERCENTAGE  FCR  VARIOUS  RESOURCES  USAGE  DATA  PREPAREC  BY  THE 

C  SIMULATION  PROGRAM. 

C 

s  33$ 

INTEGER  SHCPS150),KCNTRS1200),TPEP«5C).MILSTM5C).START(3) 
INTEGER  0aTa1150,50,230) 

CMAf  ACT  £F$2G  NAME, POL 
COMMON  /AAA/CATA1 
CCMMON/S/ICAL ,IF IL ,NRUN 

C  REAL  PARAMETERS  : 

REAC(S,9C)  NAME  ,PCL 
90  FORMAT! A20,/,3CX,A20) 

RE AC (fi, 1C0)NCYCLS,N*C ,NShOP S , I  LG* , IUP  ,NFEFRT  .NMIlES 
ICO  F0RmaT(29X,I5,////,29X,I5,/,29X ,IS ,/ , 29X , I  5 , ✓ , 29X  ,  I  5  , 

♦  ///,29X,15 .//,29X, 15)  • 

nR I TE (6,*)  '  * 

HR IT£ ( 5  ,  *  1  •  Enter  reporting  option  CCCE  :• 

WRITE  16  ,*)  •  1  *  SHOPS  ONLY* 

WRITER,*)'  2  =  HORkCENTER  ONLY* 

HRITE(6,tJ»  3  =  SHCFS  l  hORKCENTEP* 

REAC(5.*1  I POL 
1  F (  1PCL.EQ.1)  NWC  =0 
IF (  1PCL  .EO.Z  )  NSMOPS  =  0 

c 

WRITER,*)  '  ENTER  CALENDAR  CPT1GN  CCCE  :• 
hR I TE  !  6  ,  ^ '  C  *  REPORT  IN  FORKING  CATES* 

wR17£(6,«l*  1  =  REPORT  IN  CALENDAR  DATES* 

REACI5.*)  ICAL 
C 

IFINREPRT  .EC.C)  GO  TO  1C<» 

C  SET  FILE  NLM.  FOR  OUTPUTS 

SPUN*  I 
1  CONTINUE 

IF(  IC«L.E2.u)  I F  1 L  *11 
lF(lCAl.LQ.l)  I  F  I  u  =  IS 

lFUCAL.Ei.il  THEN 

FE A3 (  22,102  )  (TRlP(  1)  ,1*1, N REP FT  1 
F  E  AO  1 1 ,99  )  ( STA^Ti 11,1=1,3) 

CNCIF 

lFUCAu.fE.il  RE  AO  (2 , 101 1  (TF.  CF(  1 1 , 1  *  1 ,  N  P  E  PF  T) 

99  FCRMAT( 1CX.3IS) 

1 02  FOR  M  A  T (  1  fc  ) 

1C1  FORMAT ( 2  C I  A  ) 

C 

1 C *t  CONTINUE 
C 

if (fwc.Ec ,ci  gc  t:  iiu 


SEP0001C 
SSPG002( 
SSPC003C 
SSPCOOK 
SSPOOOSC 
SSPGOObC 
SSPC007C 
SSPC006' 
SSPC009L 
SSPC010C 
SSPCC lie 
SSPCC12C 
SSPC013C 
SSPCOUC 
SSPC015C 
SSPOOloe 
SSPC017C 

sspcoiec 

SSPC019C 
SSPC020C 
SSPC021C 
SSPG022C 
SSPC023C 
S  SPGO  2*tC 
SSPC02SC 
SSPC02OC 
SSPC027C 
SSPC026C 
S5P0029C 
SSPC030C 
SSPG0310 
SSPC0  32C 
SSPC033C 
SSPC03VC 
SSPC035C 
SSPC036C 
S5PC037C 
S  SPC038C 
SSFC039C 
SSPGO<»OC 
SSPC0A1C 
S  SPCO  <i2C 
SSPC0<*3C 
5  SPCO<*<*C' 
S  SP  C  0  <*  SC 
SSPCC  <«fcC 
SSPC0<t7C 
SSr  GC  <UJC 
SSPC0S9C 
SSPC050C 
SSPCCS1C 
SSPCC52C 
SSPGGS3C 
SSPCCS<*G 
SSPCOSSC 


! 
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REPCRT  STAT  OF  RESOURCE  USE  BY  WORK-CENTERS  : 

IFlNRLN.EQ.l)  THEN 

PRINT  «,'  REPORTING  WORK-CENTeF S ' 

WRITE  «1C, 500)  NAHE  .NC YCL S ,PCL . ILC h  . IUF 

WR1TEUC.5C1 )  START 

ENCIF 

REaC(3.1C5)  (mCNTRSU  ),I=l,NhC) 

FCRMAT  (5X.I5) 

CALL  ACCLMKNCYCLS.NREPRT  »NWC  , 25  ,WCN TR S  .  'WORK-CENl 
l  ‘TIME  ') 

IF(RShOFS.EC.C)  GO  TO  11 1  <» 

REPCRT  STAT  OF  RESOURCE  USE  BY  SHCF  : 

lF(NRLN.EQ.l)  THEN 

PRINT  «,'  REPORTING  SHOPS' 

RR ITS  11C, 500)  NAME ,NC YCL S , POL ♦ 1L0 w  ,  1LP 
WRITE (1C, 501)  START 
END  I F 

REAC(<*,lCl)(ShOPS(  1  ) ,  1  =1 ,  NSHOP  S  ) 

CALL  ACCLMKNCYCLS.NREPRT  ,N  SHOPS,  26.  SFOFS.'SHCP 
I  'TIME  ') 


REPCRT  STAT  OF  MILE-STONES  DATES  : 
i  IF (NRUN  .EQ.l )  THEN 

PRINT  =*,'  REPORTING  MILE-STONES' 

WRITE  (1C.  500)  NAME .NCYCL  S ,PCL , ILCw  ,  1  UP 
WRITE11C.5C1)  START 
ENCIF 

REACl  7,101)  (MILSTNU  )  ,1  =  1,NM1LES) 

1FI 1CAL.E0.C)  CALL  ACCUM1 INC YCL S , 1 ,NM  ILE S ,27  ,SHCP S ,  ' 

1  M.lLSTN, 'MILE-STONE ') 

I F  C 1CAL  .E3.1 )  CALL  ACCUM1 (NC YCL S, 1 ,NM  1LE S ,57 ,SHCP S ,  • 

1  MILSTN, 'M1LE-STCNE •) 

REPCRT  STAT  OF  TOTAL  MAN-HOURS  PEF.  SHCP  : 

IFINRUN.EQ.1)  THEN 

PRINT  *,'  REPORTING  TOTAL  MAN  HOURS' 

WRITE  1 1C,  500)  NAME  ,NCYCL  S  ,PCL  ,  1LC-W  ,1  UP 
WRITE (10,501)  START 
ENCIF 

CALL  ACCLMKNCYCLS.I  ,  N  SHOPS  ,2t ,  SHOPS  ,  •  ', SHOPS, 

1  'SHOP  ') 


'.trep. 


*.trep. 


5CC  FCPMATl 1M1 ,12C11H*),//,6X, 'PROJECT  NAME  :  *,A2C,15,'  RLNIS)', 

■*'  USING  '  ,A20,  •  INTENSITY  RANGE  »,I5,»  -  •  ,  1  5, // ,  12C  l  •  =  '  )  ) 

5C1  FORMAT (  1H  ,'  PRCJECT  START  CATE  :',315,/) 

IFURLN.EQ.l)  Then 

PRINT  «, '  CREATING  OUTPUTS  FOR  GRAPHS' 

NF  UN  * 2 
ICAL=ICAL-*1 
I F  c  ICAL.EC.l)  1 C  AL  *  1 
IFl  1CAL.CC. 2)  I  C  AL  *  C 
ROWING  3 
FEW  INC  <* 


BERKELEY 

SSP 0056 

SSP CO 5 7 

jpj 

SSPC0  58 

SSPC059 

SSP0060 

SSPC061 

it®] 

SSP0062 

SSPC063 

SSP  0064 

Art 

SSPC0&5 

SSPC066' 

k  . 1 

SSPC067 

SSPC068' 

SSPG069- 

SSPGO  70< 
SSPG07K 
S  SPOG  72' 
SSP0073< 
SSP CO  ?♦< 
SSPC0  751 
SSPOO  76( 
SSP  0077< 
SSPC0761 
SSPGO  79k 
SSPOO6O1 
SSPC0811 
SSPC082C 
SSPC083C 
SSPCCB4C 
SSPC085C 
S$PC086( 
SSPC087C 

sspcoeec 
ssPcoe9c 
SSPG090C 
SSPC091C 
SSPC092C 
SSPG093C 
S  SPG09«iC 
SSP0095C 
SSPC090C 
SSPC097C 
SSPCG98C 
SSPC099: 
SSFC100C 
SSPG1C1C 
SSPC102C 
SSP0103C 
S5P0101C 
SSPG105C 
SSPCIObC 
SSPC107C 
SSFC10K 
SSPC105C 
SSPC11CC 
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REWIND  7 
REWIND  25 
REWIND  2b 
REWIND  27 
REwINC  28 
GC  TG  1 
£  SO  IF 

STOP 

END 


SLBFGlT  1NE  ACCUMKNROw.NCCL  1  ,NCOL2,  IF  HE  ,NAME1  ,  HE  ADI  ,NAHE  2  , 
1  FEAD2) 


CHARACTERS  hEA01»HEA02 

INTEGER  CATAl(50,5C»230),ACCUH(10),NAKtl(20C),NAH£2(2C0) 

CCHHON/AAA/CATA1 

CCMHGN/S/ICAL  ,KF  1LE  ,NRl)N 

DC  2  0  1*1  ,NRC'W 
DC  ID  J*1,NCDL1 

10  REAC1 IFILE,200,ENG*28)  t  DATA  1  { I  ,  J  ,K  I  , K*  1 , NCGL2  > 

2 CO  FCRHAH1CI8) 

20  CCNTIVJE 
Zb  CCNTIVJE 

IF  < IF ILE  .EC  .57)  Then 
DC  <il  I  =  1,NRCW 
DC  <il  J  =  l.NCCLl 
DC  <*1  F-1.NCLL2 

I S AV  =  CATA1 ( 1 , J,K  i/ioo 
IYYY=HLD»OATA1CI,J,K),100) 

OATAK  I  ,  J  ,K  )  *  I  SAV+’I  YYY *10000 
«1  CCNTINUE 

end  if 

IF(NRlN,E3.2  )  GC  TC  30 
IF(HEAD2.EC.,HILE-STQNE,I  THEN 
wF  ITE(lOfim) 
wRI TE (10,136) 

WRITE  <10.  IOC  I 
END  IF 

IFtHE A32.EC. 'SmCP  •)  ThCN 

WF ITZ  (10,116) 
wf I T; (10,137) 

WRITE  (10, 1<»0) 

EN01F 

30  CCnTInuE 

DC  22  I  CEL  *  1  ,NCGL2 
IF(NRCN.EQ.2)  GO  TC  32 
IF  (ICEl.EC.I)  THEN 

IF (hE ADI .EC. 'wERn-CENT  •)  WRITE (1C, 111) 

IF  (rtC/.Dl  .CG.  *  SHOP  •)  WR  ITE  (10,113) 

EcSE 


SSP0111 

SSP0112 

SSPG1 13‘ 

SSP011V 

SSPCl  15> 

SSP0116' 

SSPOllTi 

SSP0118 

S  SP01 19' 

SSPC120i 

SSP0121' 

SSPC122* 

SSPC123( 

SSPC1241 

SSPC125. 

SSPC120. 

SSPC127( 

SSPC12B* 

SSPC129» 

SSPCl  30( 

S  SPCi  31* 

SSPC132< 

S  SPG1 33i 

SSPC134C 

SSPC135C 

S  SPG1 36( 

SSPC1371 

S  SPCI 3B( 

S  SPCI 39( 

SSPC1«»0C 

SSPC141C 

SSPC1A2C 

SSPC143C 

SSPC14AC 

sspci<»5c 

SSPC146C 

SSPCl  A7C 

SSPC140C 

SSPGl<t9C 

SSPC150C 

SSPC151C 

SSP0152C 

SSPC153C 

S  SPCI  5<»v 

SSPC155C 

SSPCl 5fcC 

SSPC157C 

SSPCl 560 

SSPC159C 

SSPClfcOC 

S  SPClclC 

S  SPC 1 t2C 

SSPClt3C 

SSPCifc<iC 

S  SPCI 650 
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IF (HE  ADI .EC. 'WURK-CENT  •)  HR I TE 1 1 0  ,1 10  1 
IFiHEADl.EC. 'SHOP  •)  HR 1TE (1C, 112) 

END  I F 

lF(h£A31.EC. 'WGRK-CENT  • .OR . HE  ADI .E fc .  •  SHOP  •)  THEN 

HRITE  (1C, 132)  hEADI.NAmCK  1C0D 
HR  I  TE  dC  ,135  ) 

HRITE (1C.150) 

ENCIF 

32  CONTINUE 

OC  21  1REP*1,NC0L1 
CALL  S3RTU.F.0H,  1REP.1CQL) 

K  *1 

IF  (NR3H.GT.10)  K=NR0w/10  ■»  .5 

oelmnRCh/io. 

ACCLMd  )=DATA1  (K  ,  I  REP  ,  I  COL ) 

DC  19  1*2,10 
AN*  13CELN 
N=AM  .95 

IF  (AN.GT.K)  GOTO  25 
ACCLMd  )  *  ACCOM  ( 1  - 1 1 
GCTC  19 

25  ACCLMd  )=OATAi(N,IREP,ICOL) 

N*K-»1 

19  CONTINUE 
A  V*  C  . 

VARO. 

DC  192  1*1  ,NRGw 
AV*AV«3ATa1( 1 ,IREP, IC3L)*1. 

152  VAR*VAR-»  (  (  C  A  T  A 1  (  1  ,  IREP.1CCL  1*1  .  1^*2  )  /  (NR  0  W~1  .) 

AV=AV/NRCw 
VAR*VAR-AV«AV 
IF(VAR.LT.C)  VAR*2. 

STDEV*3CRT (VAR) 

1CIF=1REF 

1F(nCCl1.EC .1 )  ICIR*ICOL 

IF(NRUN  .EC. 2  )  GO  TO  33 
I F (  1CAL  .EO.l  )  THEN 

HF I TE (10,120)  NAME2 ( 1C  1 R) ,  l  AC  CUM  1 )  , I  *1 . 10  ) . AV  ,  SIDE V 
ELSE 

WRITE (10,125)  NAME  2 (1CIR) , ( ACCUM I  )  ,1 *1  , 10  ), AV  ,  ST DEV 
Ef-DIF 

33  CONTINUE 

IFOEA31.EC.  ’wORK-CENT  •) 

*  WF  I  TE  (f  FlLE  ,121  JNAME 1(  I  CCL  ) , NAME  2  I  I  C  1 R  )  ,  ( A CC UM  I )  ,  1  =  1 , 1C ) 
IFiHEADl.EC. 'SHOP  •) 

•*  HF  I  TE  (NF 1lE*1 , 121 )NAME1 (iCOl  )  .NAME  2  ( I C 1R  ) ,  (ACCUM  1  )  , I  =  1 , 1C  ) 
IF(h£A32.EC. ’MlLE-STUNE')  ThCN 
1F( 1FILE.EC.57)  ThEN 
DC  51  1*1,10 

1YYY=ACCDM( 1 )/10000 
1  SAV=MCC(  ACC'JMd  )  ,10000  ) 

ACCLMd  )  *  1  SAVdQO'*  I  YYY 
51  CCNTINLC 


S  SPC1 6t 
SSPC16*. 
SSPC16E 
SSPClbS 
SSPC17C 
SSP0171 
SSP0172 
SSP Cl  72 
SSP0175 
SSP0175 
S  SPGl 7t 
SSPC177 
SSP01 7E 
SSPC179 

sspoiec 

sspoiei 

SSP0182 

SSPG183 

SSPC18A 

SSPC185 

SSPClBb 

SSPCie7 

SSPC188 

SSPC185 

SSPC190 

SSPG191 

SSPC192 

S5PC193 

SSP0195 

SSPC195 

SSPCl9b 

SSP0197 

SSPC196 

SSPC199 

SSPC200 

SSP02C1 

SSPC202 

SSPC203 

SSPC205 

SSPC205' 

SSPC2C6 

SSPC207. 

SSPC206 

SSP0209* 

S  SPC2  10» 

SSP02 11* 

SSPG212* 

SSPC2131 

SSPC215* 

SSPG2 15< 

S  SPC2  lt>< 

SSPC217* 

sspc2  ie* 

SSFC2  19; 
SSP02201 
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END  IF 

Nf  IT  =  (RFIlE*2,122)  NAME  2 ( I C  1  F ) , ( AC  C IM ( 1 )  ,1 =1 ,10) 

£  NO  IF 

IF (HE  A02.EC . • SHOP  '.AND .NFUN.EC .11 

♦  RF1TE  tl<i  .122)  NAME2(ICIR),(ACCUM(1  )  ,1  =  1,10) 

21  CCNTINUE 

22  CONTINUE 

RETURN 

sss*  FORMATS 

132  FOR  MA  T ( 1H  ,/ , 3X , A1C , 1 X,I S ,/ , 3X , 20( •- •  ) ) 

1  AO  FORMAT  (  1H  ,l6A,'10%'  ,  AX ,  '20%  '  ,  AX ,  '30%  • » AX ,  'AC'  •  » A  X ,  '50%', 

1  AX  , '6  0  V  , AX,' 70%', AX, '60S'  ,  AX  ,  '9C%  '  ,  2X ,'  10055*  ,/,  IX  ,  120  I  '-*),/  ) 

120  FORMAT ( 1H  ,bX,I6,lCI7,8X,FB.l,£X,F6. 1  ) 

12A  FORMAT ( 1H  ,6 X , 1 6 , 1 C 1 7 ,8X , F6 . 1 , £  X , f 6 . 1  | 

121  FOR  MAT l  15,  IX,  16,  IX,  10(17,1X1) 

122  FORMAT!  I5,£X,10( 17.1X)) 

135  FORMA  Tilt-  , 'PERIOD  ENDEC', 2AX, 

'CONFIDENCE  L  E  V  £  L ' , 2 1 X  , '  ME AN ' , SX , ' STD  CEV') 

136  FORMAT ( 1H  ,'  M  ILESTONE '  ,2AX, 

4  'CONFIDENCE  LEVE  L  •  ,  2tX  ,  •  ME  A  N'  ,  9X  ,  •  STD  DEV) 

137  FORMAT ( 1H  ,'  SHOPS', 2AX, 

4  'CONFIDENCE  LEVE  L  ',  26X  ,'  MEAN'  ,  9X  ,'  STD  CEV) 

110  FCRmaT(1H1,5x, 'RESOURCE  USE  (AVE.  MAN-HCURS  PER  DAY)  fc  Y  ', 

-»  'WORK  CENTER',/, IX, 120(1H-)) 

111  FORMAT ( 1H  ,/,5X, 'RESOURCE  USE  (AVE.  MAN-hLuRS  PER  DAY)  EY  ', 

4  'WORK  CENTER'  IX,  120C1H-)) 

112  FORMAT!  lh 1 ,  /  ,5  X ,  'RESOURCE  USE  (AVE.  MAN-HDURS  PER  DAY)  EY  ShOF', 

4  /  ,  IX ,120( 1M- ) ) 

113  FCRMATdh  ,/,5X, 'RESOURCE  USE  (AVE.  MAN-HOURS  PER  DAY)  EY  SHOP', 

♦  /  ,1X,12C(1H-)) 

1 1 A  FCRMATdh  ,5X,  'CATES  OF  HUE-STONES  •  ,/ ,  IX  ,5  C(  '  - '  ) ) 

116  FORMAT ( 1H  ,5X, 'TOTAL  MAN-HCURS  6Y  ShC P ' ,/ , IX ,35 ( 1 M- ) ) 

END 

SlfcRClT  INE  SCRT(KlIMI T.ICCLl , ICCL2 ) 

INTEGER  MA50)  ,DATA1(50,5C,2  00I  , V[ CO  U  T  l  *5 C  > 

CCMMON/AAA/C ATA1 

00  10  I *l,NLlMl T 

3(1  )  =  C  A  T  A 1 (I  ,1CCL1,IC:L2) 

1C  CCNTINJE 

ALIMIT*KLIMIT*1.0 
ANUM*AL0C1C(AL  Im.I  T  )/alOC1C(  2  . ) 

NLM  =  A  VJM 

IF  (  ANLM.DT.NUM)  N'j"=NUM4l 
MM=2 >-NUM 
NP  E  S 1 D * MM-KL  IH1T 
00  101  L  =  1  ,NR£SIC 
1C1  E  (KL  Im  I  T4L  )  =  1 3CC0 
CC  6  I = 1  ,NLM 


SSPG221' 
SSP0222' 
SSP0223< 
SSP022A- 
S  SP02  25' 
S  SP02  26> 
SSPC227. 
S  SPC2  26> 
SSPC229« 
S  SPC2  30( 
S  SP02  31‘ 
S  SPC2  32» 
SSP02  33I 
S  SPC2  3A( 
SSP02  35i 
SSPC2361 
SSP0237I 
SSP0236.' 
S  SP02  39( 
SSPC2A01 
SSP02A1I 
SSPC2  A2t 
S  SPC2  A3( 
SSP02 AA( 
SSPC2  A5< 
S  SPC2  Ao( 
S  SPC2  A  7( 
SSPC2A6( 
SSPC2*9( 
S  SPC2  5G( 
SSPC2  5K 
S  5PC2  52( 
SSPC253< 
SSPC25A( 
SSPC255( 
SSPC256C 
SSP0257C 
SSPG2  58C 
SSPC259C 
S  SP  22  6CC 
SSPC261C 
SSPC262C 
SSPC263C 
SSPC 

SSPC265C 
SSPC2  te( 
SSPC2  6  7C 
SSPC266C 
SSPC2&9C 
SSFC2  70t 
S  SPC2 71C 
S  SPC2  72*. 
SSPC273C 
SSPC.2  7AC 
SSPC2  75C 
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K=2**I 

SSPG2  76 

M  =MM/K 

SSP02  77 

OC  A  J 1  *  1 ,  M 

SSP02  76 

LSTART=K*l J1-1J41 

SSPC2 79 

LEM=LSTaR7-*k-1 

SSPC280 

K2=K/2 

SSP0281 

Kl=C 

SSPC282 

J2*LSTAR7 

SSPG283 

1 

1F(E l J2  )  .LE.E(J24K2 ))  GC  70  2 

SSP028A 

VECCUTILSTaMaKI  )=B(J2*K2  ) 

SSP0285 

B  ( J2+K2  )  =999999 

SSPC286 

K2*K2*1 

SSP0287 

GC  TO  3 

SSP0286 

2 

VECCUT(LSTARTAK1)=6(J2) 

SSP0289 

B  ( J2) *999999 

SSPC290- 

J2* J2  +  1 

SSPG291 

K2=K2-1 

SSPC292 

3 

J3  =  J2-L  S7AR7-»1 

SSPC293i 

IFCU3.GT. (K/2 ) )  GC  TO  31 

SSPC29A. 

IFUJ3AK2I.GT.KI  GC  TO  31 

SSPC295' 

K 1  *  K 1  A 1 

SSPG29D. 

GC  70  1 

SSP0297* 

31 

OC  32  L*LS7AF T.LEND 

SSPG29EI 

IFflUl.CE. 999999)  GO  TG  32 

SSP02  99i 

Kl  =  ki-*l 

SSP03004 

VCCCOT (LSTARTak1)*5(L ) 

SSP030H 

32 

CONTINUE 

SSP03021 

A 

CCNTINUC 

SSP0303i 

DC  5  J=1,KL1M1T 

SSP030Av 

* 

B< J)*V=CLUT( J) 

SSP0305( 

6 

CONTINUE 

SSP0306( 

OC  7  1  =  1, KLIMT 

SSP0307( 

0ATA1U  ,ICCl1,ICCl2)=B(1  ) 

SSPG306C 

7 

CONTINUE 

S5P0309C 

RETLRN 

SSPG310C 

END 

SSP0311C 
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c 

C  GRAPH  FORTRAN 

C  . . . 

C  GRAPH  R E AOS  THE  OUTPUTS  FROM  SSP  tOUTREP),  AND  MAKES 

C  1.  MILESTONE  GRAPH 

C  2.  LOAD  profile 

C  3.  TOTAL  MANHOUR  GRaPm 

C 

C  $««$$$$«  ««$««««$  ««<:$««?$$$$$$ 

characters;  nl 

C  READ  OPTIONS 

WRITE  (6,  S)  •  «**$$*****<:**©$«<:$ 

wRITE(6,*l  »s  GRAPHS  «• 

WRITE  (5,  SJ  '  • 

1  wR  HE  (t>  ,s)  •  • 

WRITE!***)  •  SELECT  GRAPH  TYPE  VOL  RANT  :• 

*RITE(6,*1  •  1  =  MILESTONE* 
wFlTcl&,»>  *  2  -  LOAD  PROFILE* 

•«F1T£(&,*)  *  3  =  TOTAL  RESOURCE  L’SACE* 

wFl T£ (6  ,s)  •  h  =  TERMINATE  EXECUTION* 

REACH,*)  ITYPE 

IFl  ITYPE.LT  .l.CR.ITYPE.GT  •*»)  THEN 

wRlTElfc,*)  •  INCORRECT  TYPE..  PLEASE  ENTER  AGAIN* 

GO  TO  1 
END  IF 
C 

IF( ITYPE  .EC  .1)  CALL  MILES 
IFUTYPE  .EC  .2)  CAlL  LOADS 
1 F  < ITYPE. EC. 3)  CALL  TOTALS 
IF (  ITYPE  .EC.*)  STOP 
C 

nR  I  TE  (6  *<■•)  •  • 

WRl TE (ft  ,*)  *  NEED  MORE?  Y  IF  YES,  N  IF  NO.* 


GRACOOl* 

GRAC002' 

GRA0003C 

GRACOO<H 

GRA0005( 

GRAOOOtt 

GRAGOOH 

GRAC0061 

GRAC0C9( 

GRACO 101 

GRAOOIK 

G  R AGO  1 2  < 

GRACO  13C 

GRAOOIAC 

GRAOO 15( 

GRA0016( 

GRAOO  17( 

GRACO 18( 

GRACO 19( 

GRA0020C 

GRA0021I 

GR AC022f 

GRA0C23: 

GRAGC24C 

GRAC025C 

GRAC026i 

GRA0027C 

GRA0028C 

GRA0029C 

GRACO 30C 

GRAC031C 

GRAG032C 

G  RA  CO  330 

GRACO  3<»C 

GRA0C35C 

GRAG036C 

GRAG037C 

GRAC038C 


REACH, ICO)  NC 
ICO  FCRMAT(Al) 

BEFORE  GO  PACK  FERINE  ALL  FILES 

IFUO.EC.'Y*  >  GG  TO  1 

STOP 

END 


CLEFOLT  INE  MILES 

RCuTINE  FJR  MILESTONE  GRAPn 

DIMENSION  MILDC1D, 21, MIDI  1C J, MI  CD I1G) 

*RITEl6,*l  *  MILESTONE  GRAPh  ****** 

1  wRITEH,*)  •  ONTO5?  MILESTONE  NODE  YOU  want  * 
REACH,*)  mil 


GRAC039C 

GRACG40C 

GR  AGO  *1C 

GRAC0<i2C 

GRACO  <130 

GRACORRC 

GRAGGR5C 

GRACO 

GRACO*7C 

GRAGG  <tbC 

GRAGC<i9C 

CRAC05GC 

GRACC51C 

GRACC52C 

GRAG053C 

GR  A  CO 

GR ACC55C 


f!  GRAPH 
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DC  3  1*1,1000 

REAC(1,«,END*5)  Ml , (M10( J )• J>1 . 10) 

1 F  (  M I  .CG.MIL  )  GO  TO  7 
3  CONTINUE 

5  WR1TE(6,<)  »  **  MILESTONE  NODE  NOT  F  CtNL .  PLEASE  CHECK...* 
REw  InO  1 
GC  TO  1 

c 

7  11  =  1 

DC  9  1-1,11 

REAC(2,«)  MII,(MICD(J),J=1,10) 

9  CONTINUE 

1FIK1.NE.H1I)  THEN 

wFITEIt,*)  *  **  MISMATCHED  MILESTONE  ...  CHECK.  • 

STOP 

END1F 

C 

DC  11  1*1,10 

MILD  (1,1) -M1CC II) 

M I LD ( 1 , 2 ) =M 1 D (  I ) 

11  CCNT1NJE 
C 

C  CALL  GRAPH  ROUTINE 

c 

CALL  MILE (MI .MILOJ 

c 

REWIND  1 
REWIND  2 
RETURN 
END 


SLBFOUTINE  M1LEINUM, DATES) 

C  MILESTONE  GRAPH 

INTEGER  NuM,DATES(lC,2),DAT( 10) 

DIMENSION  CLM10),w0RKI10) 

CALL  TKAC15 ( 120,0) 

C  CALL  FRTPlT (79,6) 

I F ( 1RCTR.NE .0)  STOP 
CALL  PAGE (15.  ,11  .) 

CALL  ANAME ( 'WORKING  OAYSR',12) 

CALL  YNAME  (‘CONFIDENCE  LEVE  c  ( T. )  $  '  ,  1  C  C  ) 

CALL  AREA2C  (13. ,8.) 

CALL  MEADIM  •  SIMULATED  RE  AL  I  2  AT  IOM  *  ,21 ,1 . 7, 2) 
CALL  HEALIM'DF  MILESTONE  *  ,  1A ,  1 .7 , 2  ) 

CALL  HE  I CHT (  .2  ) 

CALL  INTNO(NUM,6.5,E.<*5) 

CALL  RESET!' HEIGHT*) 

DC  5  1*1, 1C 

INTER*  (DAT  ES11C.2) -DATES  1 1,2  ))/lC-«*l 


GRAC056 

GRAC057* 

GRAOO 58. 

GRA0059' 

GRACOfeOi 

GRACOfcl 

GRAG062) 

GRAC063* 

GRAOO  t>4l 

GRaGO  b5< 

GRACOfcfet 

GRA0067! 

GRACObfit 

GRAGG691 

GRACO  70( 

GRAOO  714 

GRAOO  72< 

GRACO  73( 

GRACO  7A< 

GRACO  75( 

GRACO 7t>( 

GRAGO  77( 

GRAGO  7fa* 

GRAOO 791 

GRA0080C 

GRAGOBK 

GRAG082( 

GRAC063( 

GRaGOSAC 

GRA0085C 

GRAC06C>( 

GRAC087( 

GRACC88C 

GRACO 89C 

GRAC090C 

GRA0091C 

GRAG092C 

GRA0093C 

GRA009AC 

GRAC095C 

GRACC96C 

GRACC97C 

GRA009BC 

GRAG099C 

GRAC100C 

GRAC1C1C 

GRAG102C 

GRAC103C 

GRAC10AC 

GRAC105C 

GRAOICbC 

GRAG1C7C 

GRAC1C8C 

GRAG1C9C 

GRAC1 10c 


o  on  o  o  o  o 
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1FUMER.LT.1J  THEN 
IF(1.lE.2)  1MER*1 
IFU.CT.2)  INTER  =10**(  1  “2  1 
GO  TO  8 
ENC1F 

9  CCNTINJE 

6  CALL  GRAFCCATESU,2),INT£R,DATES(1C,2)MMER,C.,1C.,1C0.) 
OC  10  1*1, 1C 

CCNlI  1=1*10 
WORM  I  )=CATES(  1 ,2) 

DAT (I ) =0aT E S ( I  ,  1 ) 

1C  CONTINUE 

CALL  HARKERU5) 

CALL  CURVE  (WORK  ,CCN, 10,1 1 
CC  20  1*1, 1C 

CALL  RLINT(CAT( I) .WORM I),CCN(1  )) 

2C  CONTINUE 

CALL  ENCFL(O) 

CALL  OCNEPL 

RETURN 

ENC 


SUEFOuTlNE  LOADS 
ROUTINE  FOR  LOAD  PROFILE 

INTEGER  ARRAY  UOO  ,  4  1 ,  LLCADt 101 ,CONF 1 D ,P ASS l i CC , 3 ) 

WRITE  (6  ,*  1  '  *****  LOAD  PROFILE  ****** 
WRITE (6  ,* )  •  CHOOSE  OPTION  :  C  =  WORkCENTER  LEVEL* 

WR 1 TE ( 6 ,* )  •  1  *  SHCF  LEVEL* 

REAC(5,*1  ICFT 

WPITElfc,*)  •  CHOOSE  OPTION  :  C  *  IN  KUFMNG  LAYS* 

HRITEC6  ,*)  •  1  *  IN  CALENDAR  DATE* 

REAC(5,«1  I  CAL 

READ  NUHEER  OF  REPORTING  DATES 
REA C ( 12  ,  IOC  1  NREPT 
ICO  FCRHAT(12(/),29X,15) 

wCRFCENTER  load  graph 


1  IF( ICFT .EG. Cl  THEN 

WFIT£(6,*1  '  ENTER  wJkKCENTEF  AND  CCNFIL'ENCL  LEVEL  UN  T.  1  • 
FEADU,*)  I  *C »  CONF  I  3 

K  Il  =  3 
IT  N  *  3 

DC  3  1=1,1CC0 

REA0(2,«,ENC*5)  UC 1 , 1  DA  T  1 ,  l  LLC  AT  (  ^  1  ,  J=  1 ,  iC  1 
READ(«*,s,ENC  =  5l  lwC2,  1CAT2,  (LUCADI  *1  ,J*1,  1C  1 
IF{ IWC1.NE  .1WC21  THEN 

WRITF  ( t ,  *  1  •  ERROR  IN  FluE  3  ER  4. .CHECK* 

STOP 

EN01F 


GRAC111 

GRA0112 

GRAC1 13 

GRAC114 

GRA0115 

GRAG1 16 

GRAC1U 

GRA0118 

GRA01 19 

GRA0120 

GRAG121 

GRAG122 

GRA0123 

GRAG124 

GF.AC125 

GFAC126 

GRAG127 

GFAC128 

GRAC129 

GFAG1  30> 

GRAG131 

GRACl  321 

GFAC133 

GRAC134 

GFAG135. 

GRAG130. 

GRACl  37« 

GRaCI  38» 

GFAC139. 

GRAG1  4Qi 

GF  A0141 

GRAG142( 

GFaCI  43i 

GRAOl 44< 

GRA01 45( 

GRAOl 46( 

GRACl  Hli 

GRAC14 6; 

GRACl 49C 

GRAC150C 

GRAC151C 

GRAC152C 

Gl  AC1 53>. 

G  F  aGI  5<»( 

GFaCI 55v 

GFAC156C 

CFAC157* 

GRAG156C 

GRACl 59 v 

GF Awl  60c 

GRACl tic 

GRAG162C 

GFaGI c3w 

GFaCI 64i 

GRACl  t:5v 
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IF ( 1NC1.NE .INC  .AND.KIL.EQ.l  )  CD  TC  7 
1F( InC1.EG.1mC  )  THEN 
ITN=1TN*1 

ARRAYC1TN,1)=1DAT1 
ARRAY! I7n,2)*10aT2 
ARRAY! 1TN,4 )*IL0AD(C0NF 1  D/10) 

K  I  L  *  1 
END  IF 

3  CONTINUE 

5  IF(KIl.EC.I)  CG  TO  7 

wRlT£(fc,«)  •  **  NORKCCNTER  NET  fDUNC.  PLEASE  CHECK...* 
REWIND  3 
R  E  H  INC  A 
GC  TO  1 
C 

7  CONTINUE 

C  SHOT  CAPACITY  (THERE  IS  NC  WORkCENTE R-LEVEL  CAP.) 

KlLL*C 

I Tnn  =  C 

DC  9  1*1,1000 
1  SM  *0 

REA0(1C#*,EnC=11)  InCT, 1C ATE  ,CAf A 
1  SHF* lNC/lCC 

IFClNCT.NE.lSHP  . AND. KILL  .EC. 1)  GC  70  13 
1*  CONTINUE 

1F( IHCT.EC.I ShP  )  THEN 
I TNN  *  I TNN  + 1 

IF(ARRAY(1TNN,1).GT.IDATE)  TH(N 
ARRAY(ITNN,3)*CAPA-*.5 
IFUSN.Et.O)  THEN 
1SAVEN=ITNN 
I  SR  *  1 
ENC1F 
GC  TC  14 
END  IF 

I F  C IlNN.GT .NREPT)  GO  TO  8 

1F(APRAY(17NN,1).LE. 1  DA 7E . AND . I S N  .EC . C  )  GO  TC  14 
E  1F(APRAY(  ITNN,1).LE.1DATE  .AND.ISm.EC.1)  ITNNdSAVEN 

k III  *1 

END  IF 

9  CONTINUE 

11  IF(KILL.EC.I)  G 3  TO  13 

HFITEtt.*)  •  SHOP  NOT  FOUND  IN  CAP.  PLEASE  CHECK...' 
GC  TO  99 
13  CONTINUE 
C 

1FUCAL.E0.CI  lK *1 
1FI ICal.EQ.1  )  1K*> 

DC  15  1*1 »NF  EPT 

FASS(1,1)*ARRAY(1,1K) 

FASS11,:)*ARRAY(1,3) 

PASS  (  1,3  )  =  aRRAY ( 1 • 4) 

15  CONTINUE 


GRAC166C 
GRAC167C 
GRAC168C 
GRAC169C 
GRAC170C 
GRAG171C 
GRAC172C 
GRAG1 73C 
GRA0174C 
GRA0175C 
GRAC1 7bC 
GRaOI 77C 
GRaCI 76C 
GRAC1 79C 
GRACieOC 
CRAC181C 
GRAG182C 
GRA0183C 
GRA0184C 
GRA0185C 
GRAC186C 
GRAC187C 
GRAG188C 
GRAC189C 
GRAOI 900 
GRAC191C 
GRAC192C 
GRaCI 93C 
GRAG194C 
GRA0195G 
GRA0196C 
GRAOI 970 
GRA0198C 
GRA0199C 
GRA0200C 
GRAC2010 
GRAG202C 
GRAC2030 
GRAC2040 
GRA0205C 
GRA020OC 
GRAC207C 
GRAC2 060 
GRAC209C 
GRAG2100 
GRAG2  *10 
GRA02 12C 
GRA02130 
GRAC2140 
GRACE 15C 
GRAC210C 
GRACE 17C 
GRACE 16C 
GRAGE19C 
GRACE  200 


F ILE:  graph 
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C 

C  CALL  GRAPH  RGUTINE 

C 

CALL  LDACdhC  , CONF I  3 , 1 C AL , NRE PT ,P A S S ) 

C 

99  REWlNC  3 
REWIND  9 
REWIND  1C 
REWIND  12 
RETURN 
END  IF 
C 

C  ShOF  LOAD  CRAPH 

C  - 

21  IF (  IGF T  .EQ  .1 )  THEN 

WRITE  It  ,*)  '  ENTER  shop  NUMEER  AND  CONFIDENCE  LEVEL  I  in  X)' 
READ(5,$)  1  SHOP  ,CGNFID 

K  1L  =  D 
I  TN *0 

DC  23  1  =  1, 10CO 

READ  (7, END =25  I  1  SHI, IDAT1 , (LLGA  C I J ) , J*i ,10) 

FEaD(F,*,ENC  =  25)  ISh2,IDaT2,(LLDAD(J),J  =  1  ,1G) 
IF{ISH1.NE.ISH2)  THEN 

WRITE16,-)  '  ERROR  IN  FILE  7  CR  t.. CHECK' 

STOP 
END  I F 

IFUSH1.NE  .ISHGP.AND.KIL.EQ.l)  GO  TC  27 
IFl  ISHl.EC.ISMCP)  THEN 
I TN  *  1  TN*  1 

ARRAYCITN,1)=IDAT1 
ARRAY  1 1TN  ,2 )  =  1CAT  2 
ARRAY(ITn,4)=LL0aD(C‘JNF1D/10) 

K  IL  =1 
END  IF 

23  CONTINUE 

25  CONTINUE 

IF (KlL.EC.l)  GC  TO  27 

WRITE  ( 6  ,  ~ )  '  SHOP  NUMEER  NOT  FCUNO.  PLEASE  CHECK...' 
REwINC  7 
PEwIND  8 
GO  TO  21 
C 

27  CCN  TINGE 
C  CAPACITY 

K  I LL  =  C 
i tnn=: 

OO  29  1=1,1000 
I  $w  =0 

fiFAD(lC,*,END«3i)  1SHP, ICATE ,CtFA 
IT  (  ISHF.NE.lSHCiP.AND.KlLL.EC.l)  GL  TO  33 
34  CONTINUE 

IFdSHF.CC.I  ShD°  )  Th£N 
I  TNN=  I  T f. N ♦  1 


GRAG221 

GRAC2  22' 

GRAC223' 

GRA0224' 

GRAG225. 

GRA02  Zt< 

GRAC227I 

GRAC22HI 

GRAC229. 

GRAC2  30( 

GRACE  3 1 « 

GRA02  3 2 < 

GRAC2  33k 

GRACE  341 

GRAC235< 

GRAC23b< 

GRAG2  37( 

GRAG2381 

GRAC2  39< 

GR  AC2  4Q( 

GRA024K 

GRAC242I 

GRAG243C 

GRAG2 44( 

GR A02 45( 

GRA0246C 

GRAG247C 

GRAC2  46C 

GRAC249C 

GRAC250C 

GRAC251C 

GRAC252C 

GRAG253C 

GRAC254C 

GRAG255C 

GRAC25bC 

GRA0257C 

GRAC258C 

GRA0259C 

G  R A u2  bOC 

GR  ACE  610 

GRAG2fc2C 

GRAC2fc3C 

G  R A  G2  t40 

GRAC265C 

G  R  A  C2  btC 

G  R  A  G2  b  7C 

GR Al2c6G 

GRAC269C 

G R A C c  7Gc 

GRAG2  710 

GRAC2 72C 

GRA02  730 

GRACE  740 

GRACE  75C 


L£  :  GRAPH 
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1FIARRAY1  lTNN.ll.GT.lDATE)  THEN 
ARRAY (  1  TNN  ,3)=CAPA*.5 
IFtlSW.EQ.O)  THEN 
1  SAV£N  =  1 TNN 
I  sw  =  1 
ENCIF 
GC  TC  3* 

ENCIF 

I F (  1TNN.GT.NREPT)  GO  TO  28 

1F( ARRAY (  1TNN.1) .lE. IDaTE .AND. ISw .EC. O)  GO  TO  3* 

28  1F( AFRAYt ITNN.ll.LE.lDATE .AND. 1 Sw  .EC  .1  )  ITNN=1SAV£n 
K ILL  =1 

EN31F 

29  CCNTINLT 

31  IFIKILL.EC.1)  GO  TO  33 

MFIT£(6,«)  •  SHOP  NUHEER  NOT  FOUND  IN  CAP.  PtEASE  CHECK...* 
GC  TC  999 
33  CONTINUE 

IFUCAL.EQ.C)  IK  =  1 
IFdCAL.EO.l)  IK=2 
DC  35  I=1,NFEPT 

FASS(I,1)-ARRAY(I#1K) 

PASS  ( 1,2 ) =ARRAY(I»3) 

PASS(1,3)=ARRAY(1»9) 

35  CONTINUE 

Call  graph  routine 

CALL  LOAD l ISHOP.CCNFID.ICAL .NREFT  »F  A  S  S 1 

599  REWIND  7 
REWIND  E 
REWIND  1C 
REWIND  12 

return 

END1F 

END 


SLEFOUT INE  LO AC ( ShCPNU ,LE VC L ,C AL ,NUW . ARRAY  ) 


INTEGER  CAL,  LEVEL  ,  ARRA Y( 1  DC , 3 1 , SHCFNU 
INTEGER  DAT ( ICO ) 

DIMENSION  CAPilOOl  pAVE(lOO) , COUNT (ICO) 

CALL  PR  TTuT ( 79 , 6  ) 

CALL  TKAC15  1120,0) 

IF( IRETR.NE .0}  STOP 
CALL  PAGEtl? .  ,11  .) 

CALL  YNAfEC'AVE.  hCURS  CF  LOaOI'.ICO) 
CALL  A N a v C  I'CATEi’,**  ) 


GRA02  7 1>( 

GRA02 77C 

GRA02  78C 

GRA02  792 

GRAC280C 

GRA0281C 

GRA0282C 

GRAC283C 

GRAC28AC 

GRA0285C 

G  R  AC2 66w 

GRA0287C 

GRA0288C 

GRAG289C 

GRAC290C 

GRAG291C 

GRAC292C 

GRAC293C 

GRAC294C 

GRA0295C 

GRAG296C 

GRA0297C 

GRAC29EC 

GRAG299C 

GRA0300C 

GRAC301C 

GRA0302C 

GFA0303C 

CRA030AC 

GRA0305C 

GRAG306C 

GRA0307C 

GRA0306C 

G  RAG309C 

GRAG310C 

GRAG311C 

GRAC312C 

CRAC313C 

GRA031AC 

GRA0315C 

GRAC3 lcC 

GRAG317C 

GFA0318C 

GRAC319C 

GRAC320C 

GRA0321C 

GRAC322C 

GRAC323C 

GF.a032<iC 

GRA0325C 

GRA0326C 

GRA0327C 

GRA0326C 

GRA0329G 

GRAG3300 


o  o  n  r>  n 
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CALL  AREA2C  (13. ,8.) 

CALL  A NCNUM 

CALL  HEADIM 'SIMULATED  LOAD  PRCFIlEi',22  ,1.7,1) 
CALL  HEIGHT!. 2) 

CALL  MESSACt'FOR  RESOURCE:  $',14  ,5.,f.) 

CALL  MESSAGl 'CONFIDENCE  LEVEL  :  $  •  ,1 7 , 5  .  ,f  .  4 ) 

CALL  INTNOISHEPNU  ,8.5  ,8.) 

CALL  INTN0(LEVEL,8.5,3.4) 

CALL  RESET! 'HEIGHT  •  ) 

DC  10  1*1, RUM 
CAT! I ) = ARRAY (1,1) 

CAF! I ) = ARRAY (1,2) 

AVE(I)*ARRAY(I,3) 

COUNT ( I  )  =  1 
1C  CONTINUE 
NOMl=“NUM 

inti*: 

DO  5  1*1, 1C 

1NTT  *CAP (  I  )/10 
IF  (IMT  .GT  .INTI)  THEN 
1NT1=INTT 
ICAP=CAP(  1) 

END  IF 
5  CONTINUE 
DC  5  1*1, 1C 

1nTER=DAT(NUM)/10P:>I 
1F1INTER.lt. 1)  THEN 
INTER  *  1C®* !  1  "2  ) 

GO  TO  8 
EnOIF 

9  CONTINUE 

8  CALL  GRAF!  .5,1.,  COUNT  (NUM  )•»  .  5,0.,  INTI,  ICAP  +  INTl) 
CALL  HEIGHT!. 1  ) 

DC  11  1=1, NUM 

CALL  INTNC ( DAT ( I  )  , ! 1/1 .7> .05*1 ) ,- . 2 ) 

11  CONTINUE 

CALL  RE  SET  1 'HE 1GHT  ' ) 

CALL  RESET! 'fcARDCC') 

CALL  V3AR  S (COUNT , • BASE • , C AP , NUM ) 

CALL  V3ARS (COUNT  ,  'BASE • ,AVE , NUN ) 

CALL  SA^ShC (COUNT ,0, CAP, NUM, .1,90.,0,C,G,0) 

CALL  eAR SHE (COUNT ,0,AVE,NUM ,.1,90.,G,C,C,0) 

CALL  STEF 

Call  curve  (count  ,ave  ,njm,o 

CALL  STEP 
CALL  CASH 

CALL  CjRVE (COUNT  , CAP, NUM, C) 

CALL  ENCPL(C) 

call  cjnepl 

RETURN 
End 


SUBROUTINE  TOTALS 


GRA0331 

GRA0332 

GRAG333 

GRA0334 

GRA0335 

GRA033b 

GRA0337 

GRA0338 

GRA0339 

GRAC340 

GRAC341 

GRA0342 

GR  A03  43' 

GRA0344 

CRA0345 

GRA034O- 

GRA0347' 

CRA0348 

GRA0349' 

GRAC350* 

GRA03  51- 

GFA0352* 

GRaG353> 

GRA03541 

GRAC355< 

GRA03  5b* 

GRA0357v 

GRA0356! 

GRA0359v 

GR  A03b0( 

GRAC36K 

GRAC3fc2( 

GRA0363( 

GRAG364^ 

GRA0365( 

GRAC366C 

GRA0367C 

GRA03fc6C 

GRA0369C 

GRA03  70C 

GRAG3711 

GRA0372C 

GRAC373C 

GRAC374G 

GRAC375C 

G  R AC3  7bC 

GRAQ3  77C 

GRAG376C 

GRAC3  79C 

GLAG3eCC 

GRA03clC 

GRAC382C 

G^ A03830 

G  R  AG384C 

GRAC385C 


F  1LC  :  GRAPH 
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c 

ROUTINE  FOR  TOTALS 

GRA0386C 

c 

GRA0387C 

INTEGER  TOT ( 10 ) » I TCT ( 10) 

GRA0388C 

GRA0399C 

UR17E(6,*)  •  TOTAL  RESOURCE  USAGE  $$$**• 

GRA0390C 

1 

HRITE16,*)  *  ENTER  SHOP  NUMBER  ,  OR  9999  FLR 

GRAND  TOTAL ' 

GRA0391C 

RE AT ( 5  » < )  ISHCP 

GRA0392C 

GRA0393C 

1F( 1SH0P.EC.9999)  GO  TO  50 

GRA039AC 

GRA0395C 

DC  3  I=1,1CC0 

GRAG39oC 

READ (9 END  =  5)  I  SHF , ( TOT  < J ) , J  =  1 , 10 ) 

GRA0397C 

IF ( IS HP  .EQ.1SH0P )  GO  TO  7 

GRA0398C 

3 

CONTINUE 

GRA0399C 

GRAGaOOC 

5 

WR1TE16,*)  •  **  SHOP  NUMBER  NOT  FOUND.  PLEASE 

CHECK.  ..  • 

GRA0A01C 

REWIND  9 

GRA0A02C 

GO  TO  1 

GRA0A03C 

c 

GRAOAOAC 

7 

CONTINUE 

GRA0A05C 

c 

GRAOAOtoC 

c 

CALL  GRAPH  ROUTINE 

graqa  07c 

c 

GRACA06C 

CALL  TOTAL (ISHOP, TOT) 

GRAOa  09C 

REWIND  9 

GRAOA IOC 

RETLRn 

GRACA11C 

c 

GRAGA12C 

SC 

continue 

GRA0A13C 

DC  12  1*1,10 

GRAOAlAC 

12 

1  TOT  I  1 1  »C  . 

GRA0A15C 

DO  13  1=1,1000 

GRACAlbC 

REAtt9,s,EN0=l5)  ISHP.ITOTI J), J=l,10) 

GRACAl 7C 

DO  1A  K  = 1 , 10 

GRACA18C 

1 A 

1T0T(K)*1TCT(K)*T0T(K ) 

GRAGA 19C 

13 

CONTINUE 

GRACA200 

c 

GRACA210 

15 

CONTINUE 

GRA0A22C 

c 

GRACA23C 

c 

CALL  GRAPH  ROUTINE 

GRA0A2AC 

c 

GRACA25C 

CALL  TOT AL (  I  SHOP , 1  TOT ) 

GRACA26C 

REwlND  9 

GRACA270 

RETURN 

GRACA28C 

END 

GRACA29C 

GRACA30C 

GRACA31C 

SLbF jlT  1NE  TOTAL CSHOPn, TOT) 

GRACA32C 

GRACa  33C 

c 

TOTAL  GRAPH.  IF  ShCPN  =  9999 ,  ThEN  TOT  IS  GRAND 

TOTAL 

GR ACA  3aC 

GRACA35C 

DIMENSION  COMIC)  ,TTT  (10) 

GRAOa  3t>C 

INTEGER  SHORN, TOT(lO) 

GRAGa37C 

c 

CHARACTERS  SHCPN 

GRAOA  360 

c 

REAL  TOT(IC) 

GRACA39C 

CALL  TKaCIS  ( 12C  ,0  ) 

GRACA  AOO 

F  ILE :  GRAPH 


FCRTRAN  A  VM/SP  CHS  RELEASE  3.1.E  851112.  CFC 


L.C.  BERKELEY 


IF  C 1RETR  .NE.C)  STOP 
CALL  PAGE (15. .11.) 

CALL  XNAME(‘MAN  HOURSS'.ICO) 

CALL  YNAME  (‘CONFIDENCE  LEVEL  (/•)$' .ICC) 

CALL  ARE A2C  (13. .8.) 

CALL  HEAOIM ‘SIMULATED  TOTAL  REOUIRE  MENTS  •  ,2  7, 1  .7  ,2  ) 
CALL  hEADIM'FOR  RESOURCE  *$*>14.1.7.2) 

CALL  HE  I CHT ( . 2 ) 

C  ChECK 

IF( SHCPN  .NE.9999)  CALL  INTNO ( SHCPN .6. 5. £.45) 

IF( SHCPN.EC.9599)  CALL  ME SSA& ( • ALLS ' , 2 , t . 5 ,6  .4 5  ) 

CALL  RE  SET ( ‘HE  I GHT  • ) 

DC  9  1*1, 1C 

1NTER=TCT(10)/10**I 
IF(lNTER.LT.l)  THEN 
INTER=10-*( 1-2) 

GO  TO  6 
ENC1F 

9  CCnTIN'JE 

8  CALL  GRAF(TCT(1 ), INTER, TOT( 10 )♦ INTER ,C., 10. .ICO.) 

DC  10  1=1,10 

CCN(I  )  =  I«10. 

TTT ( I  )=TCTl  I  ) 

1C  CONTINUE 

CALL  MARKER ( 15 ) 

CALL  CURVE  ( TTT  ,C JN  ,  10 , 1 ) 

DC  20  1=1,10 

call  RLINT(T0T(I),TTT(1),CCN(I)) 

2C  CONTINUE 

CALL  ENDPL(O) 

CALL  DCNEPL 

RETURN 

END 


GRAC441I 

GRA0442* 

GRAC443< 

GRAC444I 

GRAC4  45( 

GRA044b< 

GRA0*47< 

GRA04  46( 

GRA04  49( 

GRA0*50( 

GRA04  5K 

GRA04521 

GRAG453( 

GRA04  54( 

GRA0455C 

GRA0456C 

GRA0457( 

GRA04  58C 

GRA0459C 

GRA04&0C 

CRAC461C 

GRAC462C 

GRAC463C 

GRAC464C 

GRAC465C 

GRA0468C 

GRA0467C 

GRAC468C 

GRA0469C 

GRA04  70C 

GRA04  71C 

GRA0A72C 

GRAC473C 


I 


i 


j 


